To avoid the attachment for the body content while sending email from ABAP

Question

SAP Version : 4.7
   When i tried to send an external email from the abap report program, the body content of the mail is coming as an attachment for the same. I need to avoid this. Please give the suggestion. Am attaching the code.
                    DECLARATION PART                                 *
TYPE-POOLS : SLIS.
TABLES : VBAK.
DECLARATION FOR ALV.
DATA : F_FIELD TYPE SLIS_T_FIELDCAT_ALV,
       W_FIELD TYPE SLIS_FIELDCAT_ALV,
       L_HEADER TYPE SLIS_T_LISTHEADER,
       W_HEADER TYPE SLIS_LISTHEADER,
       W_LAYOUT TYPE SLIS_LAYOUT_ALV,
       t_sort type slis_t_sortinfo_alv,
       w_sort type slis_sortinfo_alv.
TYPES : BEGIN OF T_VBAK,
          VBELN    LIKE VBAK-VBELN,
          VKGRP    LIKE VBAK-VKGRP,
          KUNNR    LIKE VBAK-KUNNR,
          ERDAT    LIKE VBAK-ERDAT,
          VTWEG    LIKE VBAK-VTWEG,
          LIFSK    LIKE VBAK-LIFSK,
          VKBUR    LIKE VBAK-VKBUR,
        END OF T_VBAK.
TYPES : BEGIN OF T_VBAP,
          VBELN    LIKE VBAP-VBELN,
          POSNR    LIKE VBAP-POSNR,
          MATNR    LIKE VBAP-MATNR,
          WERKS    LIKE VBAP-WERKS,
          ARKTX    LIKE VBAP-ARKTX,
          KWMENG   LIKE VBAP-KWMENG,
          CUOBJ    LIKE VBAP-CUOBJ,
          NETWR    LIKE VBAP-NETWR,
          ZSCHL_K  LIKE VBAP-ZSCHL_K,
          KONDM    LIKE VBAP-KONDM,
          ZZURWN   LIKE VBAP-ZZURWN,
        END OF T_VBAP.
TYPES : BEGIN OF T_LIPS,
          VBELN    LIKE LIPS-VBELN,
          POSNR    LIKE LIPS-POSNR,
          VGBEL    LIKE LIPS-VGBEL,
          VGPOS    LIKE LIPS-VGPOS,
        END OF T_LIPS.
TYPES : BEGIN OF T_KNA1,
          KUNNR    LIKE KNA1-KUNNR,
          NAME1    LIKE KNA1-NAME1,
          ADRNR    LIKE KNA1-ADRNR,
        END OF T_KNA1.
TYPES : BEGIN OF T_VBKD,
          VBELN    LIKE VBKD-VBELN,
          POSNR    LIKE VBKD-POSNR,
          BSTKD    LIKE VBKD-BSTKD,
          BSTDK    LIKE VBKD-BSTDK,
          KURSK    LIKE VBKD-KURSK,          " CURRENCY CHECK
          BZIRK    LIKE VBKD-BZIRK,          " SALES DISTRICT
          KDGRP    LIKE VBKD-KDGRP,
          IHREZ    LIKE VBKD-IHREZ,
        END OF T_VBKD.
TYPES : BEGIN OF T_LIKP,
          VBELN    LIKE LIKP-VBELN,
          ERDAT    LIKE LIKP-ERDAT,
        END OF T_LIKP.
TYPES : BEGIN OF T_ADR6,
          ADDRNUMBER LIKE ADR6-ADDRNUMBER,
          SMTP_ADDR  LIKE ADR6-SMTP_ADDR,
        END OF T_ADR6.
DATA  : BEGIN OF IT_CUST OCCURS 0,
          KUNNR LIKE VBAK-KUNNR,
        END OF IT_CUST.
TYPES : BEGIN OF T_VBUP,
          VBELN    LIKE VBUP-VBELN,
          POSNR    LIKE VBUP-POSNR,
          KOSTA    LIKE VBUP-KOSTA,
          WBSTA    LIKE VBUP-WBSTA,
        END OF T_VBUP.
TYPES : BEGIN OF T_TVLST,
          LIFSP    LIKE TVLST-LIFSP,
          VTEXT    LIKE TVLST-VTEXT,
        END OF T_TVLST.
TYPES : BEGIN OF T_CONFIG.
        INCLUDE STRUCTURE CONF_OUT.
TYPES : END OF T_CONFIG.
DATA  : TMP LIKE VBAK-KUNNR.
DATA  : NAME_TEXT LIKE THEAD-TDNAME.
DATA  : TLINE1 LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA  : TMP_BRAKET LIKE CONF_OUT-ATWRT,
        TMP_BRAKET1 LIKE CONF_OUT-ATWRT.
DATA : BEGIN OF IT_FINAL OCCURS 0,
          WERKS   LIKE VBAP-WERKS,
          VBELN   LIKE VBAP-VBELN,
          POSNR   LIKE VBAP-POSNR,
          KUNNR   LIKE VBAK-KUNNR,
          NAME1   LIKE KNA1-NAME1,
          VBELN1  LIKE LIKP-VBELN,
          ERDAT   LIKE LIKP-ERDAT,
          LIFSK   LIKE VBAK-LIFSK,
          ZZURWN  LIKE VBAP-ZZURWN,
          IHREZ   LIKE VBKD-IHREZ,
          ERDAT1  LIKE VBAK-ERDAT,
          NETWR(25) type C,
          BSTKD   LIKE VBKD-BSTKD,
          BSTDK   LIKE VBKD-BSTDK,
          SALORD(17)  TYPE C,
          PUMP_TYPE LIKE CONF_OUT-ATWRT,
          PUMP_SIZE LIKE CONF_OUT-ATWRT,
          VTEXT     LIKE TVLST-VTEXT,
          KWMENG(25) TYPE C,
          FOOTER(330) TYPE C,
          ITMTXT(330) TYPE C,
       END OF IT_FINAL.
DATA : IT_VBAK TYPE STANDARD TABLE OF T_VBAK,
       IT_VBAP TYPE STANDARD TABLE OF T_VBAP,
       IT_VBKD TYPE STANDARD TABLE OF T_VBKD,
       IT_LIKP TYPE STANDARD TABLE OF T_LIKP,
       IT_LIPS TYPE STANDARD TABLE OF T_LIPS,
       IT_VBUP TYPE STANDARD TABLE OF T_VBUP,
       IT_KNA1 TYPE STANDARD TABLE OF T_KNA1,
       IT_ADR6 TYPE STANDARD TABLE OF T_ADR6,
       IT_FINAL1 LIKE IT_FINAL OCCURS 0 with header line,
       IT_TVLST TYPE STANDARD TABLE OF T_TVLST,
       IT_CONFIG TYPE STANDARD TABLE OF T_CONFIG,
       W_VBAK TYPE T_VBAK,
       W_VBAP TYPE T_VBAP,
       W_VBKD TYPE T_VBKD,
       W_LIKP TYPE T_LIKP,
       W_ADR6 TYPE T_ADR6,
       W_LIPS TYPE T_LIPS,
       W_VBUP TYPE T_VBUP,
       W_KNA1 TYPE T_KNA1,
       W_TVLST TYPE T_TVLST,
       W_CONFIG TYPE T_CONFIG.
DATA:   it_message TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0
                WITH HEADER LINE.
DATA:   it_attach TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0
                WITH HEADER LINE.
DATA:   t_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
        t_contents LIKE solisti1 OCCURS 0 WITH HEADER LINE,
        t_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
        t_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE,
        t_object_header LIKE solisti1 OCCURS 0 WITH HEADER LINE,
        w_cnt TYPE i,
        w_sent_all(1) TYPE c,
        w_doc_data LIKE sodocchgi1,
        gd_error    TYPE sy-subrc,
        gd_reciever TYPE sy-subrc.
                    SELECTION-CRITERIA                               *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : R2 RADIOBUTTON GROUP G1 USER-COMMAND radio DEFAULT 'X',
             R1 RADIOBUTTON GROUP G1 .
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
PARAMETERS:  p_email TYPE somlreci1-receiver
                                  DEFAULT '[email protected]'.
PARAMETERS : P_VTWEG LIKE W_VBAK-VTWEG ,
             P_WERKS LIKE W_VBAP-WERKS.
select-options : s_vkgrp for w_vbak-vkgrp,
                 s_ERDAT for w_LIKP-ERDAT.
selection-screen end of block b2.
                          Initialization
INITIALIZATION.
  s_vkgrp-sign = 'I'.
  s_vkgrp-option = 'BT'.
  s_vkgrp-low = '313'.
  s_vkgrp-high = '324'.
  APPEND s_vkgrp.
  s_erdat-sign = 'I'.
  s_erdat-option = 'BT'.
  s_erdat-low = '20080108'.
  s_erdat-high = '20080108'.
s_erdat-low = '20070101'.
s_erdat-high = sy-datum.
  APPEND s_erdat.
                  selection-screen validations
AT SELECTION-SCREEN.
  Validation for Plant.
  IF p_werks NE '7210'.
    MESSAGE : 'Plant entered should be 7210' TYPE 'E'.
  ENDIF.
               START OF SELECTION                                    *
start-of-selection.
GETTING THE DATA FROM THE DATABASE TABLE
  PERFORM DATA_FETCH.
FILLING THE FINAL INTERNAL TABLE
  PERFORM FILL_FINAL.
GETTING THE LIST FOR SENDING MAIL OR DISPLAY.
IF R1 = 'X'.
  Populate table with details to be entered into .xls file
  LOOP AT IT_CUST.
    PERFORM build_xls_data_table using it_cust-kunnr.
  ENDLOOP.
  Instructs mail send program for SAPCONNECT to send email(rsconn01)
    PERFORM initiate_mail_execute_program.
ELSEIF R2 = 'X'.
  PERFORM LIST_DISPLAY.
ENDIF.
               END OF SELECTION                                      *
end-of-selection.
*&      Form  DATA_FETCH
      text
-->  p1        text
<--  p2        text
FORM DATA_FETCH .
   SELECT VBELN
          VKGRP
          KUNNR
          ERDAT
          VTWEG
          LIFSK
          VKBUR
   INTO TABLE IT_VBAK
   FROM VBAK
   WHERE VTWEG = P_VTWEG
   AND   VKGRP IN S_VKGRP
   AND   LIFSK NE ''.
IF IT_VBAK[] IS NOT INITIAL.
  SELECT  LIFSP
          VTEXT
  INTO TABLE IT_TVLST
  FROM TVLST
  FOR ALL ENTRIES IN IT_VBAK
  WHERE  LIFSP = IT_VBAK-LIFSK
  AND    SPRAS = 'EN'.
  SELECT  VBELN
          POSNR
          MATNR
          WERKS
          ARKTX
          KWMENG
          CUOBJ
          NETWR
          ZSCHL_K
          KONDM
          ZZURWN
  INTO TABLE IT_VBAP
  FROM VBAP
  FOR ALL ENTRIES IN IT_VBAK
  WHERE VBELN = IT_VBAK-VBELN
  AND   WERKS = P_WERKS.
  SELECT KUNNR
         NAME1
         ADRNR
  INTO TABLE IT_KNA1
  FROM KNA1
  FOR ALL ENTRIES IN IT_VBAK
  WHERE   KUNNR = IT_VBAK-KUNNR.
  SELECT  VBELN
          POSNR
          BSTKD
          BSTDK
          KURSK
          BZIRK
          KDGRP
  INTO TABLE IT_VBKD
  FROM VBKD
  FOR ALL ENTRIES IN IT_VBAK
  WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
  SELECT VBELN
         POSNR
         VGBEL
         VGPOS
  INTO TABLE IT_LIPS
  FROM LIPS
  FOR ALL ENTRIES IN IT_VBAP
  WHERE VGBEL = IT_VBAP-VBELN
  AND   VGPOS = IT_VBAP-POSNR.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
  SELECT VBELN
         ERDAT
  INTO TABLE IT_LIKP
  FROM LIKP
  FOR ALL ENTRIES IN IT_LIPS
  WHERE VBELN = IT_LIPS-VBELN
  AND   ERDAT IN S_ERDAT.
  SELECT VBELN
         POSNR
         KOSTA
         WBSTA
  INTO TABLE IT_VBUP
  FROM VBUP
  FOR ALL ENTRIES IN IT_LIPS
  WHERE VBELN = IT_LIPS-VBELN
  AND   POSNR = IT_LIPS-POSNR
  AND   KOSTA EQ 'C'
  AND   WBSTA NE 'C'.
ENDIF.
IF IT_KNA1[] IS NOT INITIAL.
  SELECT ADDRNUMBER
         SMTP_ADDR
  INTO TABLE IT_ADR6
  FROM ADR6
  FOR ALL ENTRIES IN IT_KNA1
  WHERE ADDRNUMBER = IT_KNA1-ADRNR.
ENDIF.
ENDFORM.                    " DATA_FETCH
*&      Form  LIST_DISPLAY
      text
-->  p1        text
<--  p2        text
FORM LIST_DISPLAY .
REFRESH F_FIELD.
  IF R2 = 'X'.
    W_FIELD-col_pos = 1.
    W_FIELD-fieldname = 'WERKS'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Plant'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 2.
    W_FIELD-fieldname = 'VBELN'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Sales Order'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 3.
    W_FIELD-fieldname = 'KUNNR'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Customer Code'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 4.
    W_FIELD-fieldname = 'NAME1'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Customer Name'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 5.
    W_FIELD-fieldname =  'VBELN1'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Delivery Number'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 6.
    W_FIELD-fieldname = 'ERDAT'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Delivery Date'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 7.
    W_FIELD-fieldname = 'LIFSK'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Delivery Block'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 8.
    W_FIELD-fieldname = 'PUMP_TYPE'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Pump Type'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 9.
    W_FIELD-fieldname = 'PUMP_SIZE'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_l = 'Pump Size'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 10.
    W_FIELD-fieldname = 'ZZURWN'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Pump Srno'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 11.
    W_FIELD-fieldname = 'IHREZ'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Indent No.'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 12.
    W_FIELD-fieldname = 'ERDAT'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Order Booking Dt'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 13.
    W_FIELD-fieldname = 'NETWR'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C710'.
    W_FIELD-seltext_m = 'Net Value'.
    w_field-do_sum = 'X'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 14.
    W_FIELD-fieldname = 'KWMENG'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C710'.
    W_FIELD-seltext_m = 'Qty'.
    w_field-do_sum = 'X'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 15.
    W_FIELD-fieldname = 'BSTKD'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Customer PONO'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 16.
    W_FIELD-fieldname = 'BSTDK'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Customer PODT'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 17.
    W_FIELD-fieldname = 'SALORD'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Sales Order/Item'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 18.
    W_FIELD-fieldname = 'VTEXT'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Delivery Block Desc.'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 19.
    W_FIELD-fieldname = 'FOOTER'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Footer Text'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 20.
    W_FIELD-fieldname = 'ITMTXT'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Item Text'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    PERFORM SORT_FIELD.
    PERFORM LAYOUT_DISPLAY.
    PERFORM GRID_DISPLAY.
  ENDIF.
ENDFORM.                    " LIST_DISPLAY
*&      Form  FILL_FINAL
      text
-->  p1        text
<--  p2        text
FORM FILL_FINAL .
REFRESH IT_FINAL.
LOOP AT IT_VBUP INTO W_VBUP.
    READ TABLE IT_LIPS INTO W_LIPS WITH KEY VBELN = W_VBUP-VBELN POSNR = W_VBUP-POSNR.
    READ TABLE IT_LIKP INTO W_LIKP WITH KEY VBELN = W_LIPS-VBELN.
    IF SY-SUBRC EQ 0.
    READ TABLE IT_VBAP INTO W_VBAP WITH KEY VBELN = W_LIPS-VGBEL POSNR = W_LIPS-VGPOS.
    READ TABLE IT_VBAK INTO W_VBAK WITH KEY VBELN = W_VBAP-VBELN.
    READ TABLE IT_VBKD INTO W_VBKD WITH KEY VBELN = W_VBAK-VBELN.
    READ TABLE IT_KNA1 INTO W_KNA1 WITH KEY KUNNR = W_VBAK-KUNNR.
    READ TABLE IT_TVLST INTO W_TVLST WITH KEY LIFSP = W_VBAK-LIFSK.
      IT_FINAL-WERKS   = W_VBAP-WERKS.
      IT_FINAL-VBELN   = W_VBAP-VBELN.
      IT_FINAL-KUNNR   = W_VBAK-KUNNR.
      IT_FINAL-NAME1   = W_KNA1-NAME1.
      IT_FINAL-VBELN1  = W_LIKP-VBELN.
      IT_FINAL-ERDAT   = W_LIKP-ERDAT.
      IT_FINAL-LIFSK   = W_VBAK-LIFSK.
      IT_FINAL-ZZURWN  = W_VBAP-ZZURWN.
      IT_FINAL-IHREZ   = W_VBKD-IHREZ.
      IT_FINAL-ERDAT1  = W_VBAK-ERDAT.
      IT_FINAL-NETWR   = W_VBAP-NETWR.
      IT_FINAL-BSTKD   = W_VBKD-BSTKD.
      IT_FINAL-BSTDK   = W_VBKD-BSTDK.
      IT_FINAL-POSNR   = W_VBAP-POSNR.
      IT_FINAL-VTEXT   = W_TVLST-VTEXT.
      IT_FINAL-KWMENG  = W_VBAP-KWMENG.
      CONCATENATE W_VBAP-VBELN W_VBAP-POSNR INTO IT_FINAL-SALORD SEPARATED BY '/'.
      IF W_VBAP-CUOBJ NE '000000000000000000'.
        REFRESH IT_CONFIG.
          CALL FUNCTION 'VC_I_GET_CONFIGURATION'
            EXPORTING
              INSTANCE            = W_VBAP-CUOBJ
              LANGUAGE            = SY-LANGU
            TABLES
              CONFIGURATION       = IT_CONFIG
            EXCEPTIONS
              INSTANCE_NOT_FOUND  = 1
              INTERNAL_ERROR      = 2
              NO_CLASS_ALLOCATION = 3
              INSTANCE_NOT_VALID  = 4
              OTHERS              = 5.
          IF SY-SUBRC = 0.
            READ TABLE IT_CONFIG INTO W_CONFIG WITH KEY ATNAM = 'IN_PUMP_TYPE'.
            IT_FINAL-PUMP_TYPE = W_CONFIG-ATWRT.
            CLEAR W_CONFIG.
            READ TABLE IT_CONFIG INTO W_CONFIG WITH KEY ATNAM = 'IN_PUMP_SIZE' .
            IT_FINAL-PUMP_SIZE = W_CONFIG-ATWRT.
            CLEAR W_CONFIG.
          ENDIF.
      ENDIF.
        move w_vbap-vbeln to name_text.
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id       = 'ZKT1'
            language = 'E'
            name     = name_text
            object   = 'VBBK'
          TABLES
            lines    = tline1
          EXCEPTIONS
            OTHERS   = 8.
      LOOP AT TLINE1.
        CONCATENATE IT_FINAL-FOOTER TLINE1-TDLINE+0(65) INTO IT_FINAL-FOOTER.
        CLEAR : TLINE1.
      ENDLOOP.
      clear : name_text,tline1[].
      concatenate w_vbap-vbeln w_vbap-posnr into name_text.
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id       = 'ZKT3'
            language = 'E'
            name     = name_text
            object   = 'VBBP'
          TABLES
            lines    = tline1
          EXCEPTIONS
            OTHERS   = 8.
      LOOP AT TLINE1.
        CONCATENATE IT_FINAL-ITMTXT TLINE1-TDLINE+0(65) INTO IT_FINAL-ITMTXT.
        CLEAR : TLINE1.
      ENDLOOP.
      APPEND IT_FINAL.
    ENDIF.
   CLEAR : IT_FINAL,W_VBAP,W_VBKD,W_VBUP,W_LIPS,W_LIKP,W_KNA1,W_VBAK,W_TVLST,name_text,tline1[].
ENDLOOP.
IT_FINAL1[] = IT_FINAL[].
SORT IT_FINAL1 BY KUNNR.
LOOP AT IT_FINAL1.
  IF TMP NE IT_FINAL1-KUNNR.
   IT_CUST-KUNNR = IT_FINAL1-KUNNR.
   APPEND IT_CUST.
   clear : tmp,it_cust.
   TMP = IT_FINAL1-KUNNR.
  ENDIF.
  CLEAR : IT_FINAL1.
ENDLOOP.
ENDFORM.                    " FILL_FINAL
*&      Form  LAYOUT_DISPLAY
      text
-->  p1        text
<--  p2        text
FORM LAYOUT_DISPLAY .
  W_LAYOUT-colwidth_optimize = 'X'.
ENDFORM.                    " LAYOUT_DISPLAY
*&      Form  GRID_DISPLAY
      text
-->  p1        text
<--  p2        text
FORM GRID_DISPLAY .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
       I_CALLBACK_PROGRAM                = SY-REPID
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
       I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
     IS_LAYOUT                         = W_LAYOUT
     IT_FIELDCAT                       = F_FIELD
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
     IT_SORT                           = T_SORT
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
  IT_EVENTS                         =
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  I_HTML_HEIGHT_TOP                 =
  I_HTML_HEIGHT_END                 =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
      TABLES
        T_OUTTAB                          = IT_FINAL
EXCEPTIONS
  PROGRAM_ERROR                     = 1
  OTHERS                            = 2
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " GRID_DISPLAY
*&      Form  SORT_FIELD
      text
-->  p1        text
<--  p2        text
FORM SORT_FIELD .
  w_sort-spos = 1.
  w_sort-fieldname = 'KUNNR'.
  w_sort-up = 'X'.
  append w_sort to t_sort.
  clear w_sort.
  w_sort-spos = 2.
  w_sort-fieldname = 'VBELN'.
  w_sort-up = 'X'.
  append w_sort to t_sort.
  clear w_sort.
ENDFORM.                    " SORT_FIELD
*&      Form  TOP_OF_PAGE
      text
FORM top_of_page.
  IF R2 = 'X'.
    REFRESH l_header.
    w_header-typ = 'S'.
    w_header-key = 'Delivery Block : '.
    w_header-info = 'Outbound delivery created but not despatched'.
    APPEND w_header TO l_header.
    CLEAR w_header.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        it_list_commentary = l_header.
  ENDIF.
ENDFORM.                    "TOP_OF_PAGE
*&      Form  BUILD_XLS_DATA_TABLE
      Build data table for .xls document
FORM build_xls_data_table using custcode.
CONSTANTS: con_cret TYPE X VALUE '0D',  "OK for non Unicode
            con_tab TYPE x VALUE '09'.   "OK for non Unicode
data : it_custcode like vbak-kunnr.
*If you have Unicode check active in program attributes thnen you will
*need to declare constants as follows
*class cl_abap_char_utilities definition load.
constants:
    con_tab  type c value cl_abap_char_utilities=>HORIZONTAL_TAB,
    con_cret type c value cl_abap_char_utilities=>CR_LF.
clear : it_attach,it_attach[].
  CONCATENATE 'Customer PONO' 'Customer PODT' 'Sales Order No' 'Item No'
              'Pump Type' 'Pump Size' 'Order Value Rs' 'Delivery No.' 'Delivery Dt.'
              'Quantity' 'Reasons for not getting Despatch'
          INTO it_attach SEPARATED BY con_tab.
  CONCATENATE con_cret it_attach  INTO it_attach.
  APPEND  it_attach.
  it_custcode = custcode.
CLEAR : W_KNA1,W_ADR6.                                             "Code need to be added once testing is over.
READ TABLE IT_KNA1 INTO W_KNA1 WITH KEY KUNNR = IT_CUSTCODE.
READ TABLE IT_ADR6 INTO W_ADR6 WITH KEY ADDRNUMBER = W_KNA1-ADRNR.
P_EMAIL = W_ADR6-SMTP_ADDR.
  LOOP AT it_final where kunnr = it_custcode.
    CONCATENATE
                IT_FINAL-BSTKD
                IT_FINAL-BSTDK
                IT_FINAL-VBELN
                IT_FINAL-POSNR
                IT_FINAL-PUMP_TYPE
                IT_FINAL-PUMP_SIZE
                IT_FINAL-NETWR
                IT_FINAL-VBELN1
                IT_FINAL-ERDAT
                IT_FINAL-KWMENG
                IT_FINAL-VTEXT
    INTO it_attach SEPARATED BY con_tab.
    CONCATENATE con_cret it_attach  INTO it_attach.
    APPEND  it_attach.
    clear it_final.
  ENDLOOP.
  if R1 = 'X'.
Populate message body text
  perform populate_email_message_body.
Send file by email as .xls speadsheet
  PERFORM send_file_as_email_attachment
                               tables it_message
                                      it_attach
                                using p_email
                                      'AWAITING DESPATCH CLEARANCE'
                                      'XLS'
                                      'Delivery_Block'
                                      'Delivery_Blk'
                                      '[email protected]'
                                      'INT'
                             changing gd_error
                                      gd_reciever.
  endif.
ENDFORM.                    " BUILD_XLS_DATA_TABLE
*&      Form  SEND_FILE_AS_EMAIL_ATTACHMENT
      Send email
FORM send_file_as_email_attachment tables pit_message
                                          pit_attach
                                    using p_email
                                          p_mtitle
                                          p_format
                                          p_filename
                                          p_attdescription
                                          p_sender_address
                                          p_sender_addres_type
                                 changing p_error
                                          p_reciever.
  DATA: objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.
  DATA: ld_error    TYPE sy-subrc,
        ld_reciever TYPE sy-subrc,
        ld_mtitle LIKE sodocchgi1-obj_descr,
        ld_email LIKE  somlreci1-receiver,
        ld_format TYPE  so_obj_tp ,
        ld_attdescription TYPE  so_obj_nam ,
        ld_attfilename TYPE  so_obj_des ,
        ld_sender_address LIKE  soextreci1-receiver,
        ld_sender_address_type LIKE  soextreci1-adr_typ,
        ld_receiver LIKE  sy-subrc.
  ld_email   = p_email.
  ld_mtitle = p_mtitle.
  ld_format              = p_format.
  ld_attdescription      = p_attdescription.
  ld_attfilename         = p_filename.
  ld_sender_address      = p_sender_address.
  ld_sender_address_type = p_sender_addres_type.
Fill the document data.
  w_doc_data-doc_size = 1.
Populate the subject/generic message attributes
  w_doc_data-obj_langu = sy-langu.
  w_doc_data-obj_name  = 'SAPRPT'.
  w_doc_data-obj_descr = ld_mtitle .
  w_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
  CLEAR : w_doc_data,w_cnt.
  DESCRIBE TABLE it_attach LINES w_cnt.
READ TABLE it_attach INDEX w_cnt.
  w_doc_data-doc_size =
     ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
  w_doc_data-obj_langu  = sy-langu.
  w_doc_data-obj_name   = 'SAPRPT'.
  w_doc_data-obj_descr  = ld_mtitle.
  w_doc_data-sensitivty = 'F'.
  CLEAR t_attachment.
  REFRESH t_attachment.
  t_attachment[] = pit_attach[].
Describe the body of the message
  CLEAR t_packing_list.
  REFRESH t_packing_list.
  t_packing_list-transf_bin = space.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 0.
  t_packing_list-body_start = 1.
  DESCRIBE TABLE it_message LINES t_packing_list-body_num.
  t_packing_list-doc_type = 'RAW'.
  APPEND t_packing_list.
Create attachment notification
  t_packing_list-transf_bin = 'X'.
  t_packing_list-head_start = 1.
  t_packing_list-head_num   = 1.
  t_packing_list-body_start = 1.
  DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
  t_packing_list-doc_type   =  ld_format.
  t_packing_list-obj_descr  =  ld_attdescription.
  t_packing_list-obj_name   =  ld_attfilename.
  t_packing_list-doc_size   =  t_packing_list-body_num * 255.
  APPEND t_packing_list.
Add the recipients email address
  CLEAR t_receivers.
  REFRESH t_receivers.
  t_receivers-receiver = ld_email.
  t_receivers-rec_type = 'U'.
  t_receivers-com_type = 'INT'.
  t_receivers-notif_del = 'X'.
  t_receivers-notif_ndel = 'X'.
  APPEND t_receivers.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
       EXPORTING
            document_data              = w_doc_data
            put_in_outbox              = 'X'
            sender_address             = ld_sender_address
            sender_address_type        = ld_sender_address_type
            commit_work                = 'X'
       IMPORTING
            sent_to_all                = w_sent_all
       TABLES
            packing_list               = t_packing_list
            object_header              = objhead
            contents_bin               = t_attachment
            contents_txt               = it_message
            receivers                  = t_receivers
       EXCEPTIONS
            too_many_receivers         = 1
            document_not_sent          = 2
            document_type_not_exist    = 3
            operation_no_authorization = 4
            parameter_error            = 5
            x_error                    = 6
            enqueue_error              = 7
            OTHERS                     = 8.
Populate zerror return code
  ld_error = sy-subrc.
Populate zreceiver return code
  LOOP AT t_receivers.
    ld_receiver = t_receivers-retrn_code.
  ENDLOOP.
ENDFORM.
*&      Form  INITIATE_MAIL_EXECUTE_PROGRAM
      Instructs mail send program for SAPCONNECT to send email.
FORM initiate_mail_execute_program.
  WAIT UP TO 2 SECONDS.
  SUBMIT rsconn01 WITH mode = 'INT'
                WITH output = 'X'
                AND RETURN.
ENDFORM.                    " INITIATE_MAIL_EXECUTE_PROGRAM
*&      Form  POPULATE_EMAIL_MESSAGE_BODY
       Populate message body text
form populate_email_message_body.
  REFRESH it_message.
  it_message = 'We have manufactured the pump/s against your purchase order and regret to inform'.
  APPEND it_message.
  it_message = 'you that same cannot be despatched for the reason/s indicated below.'.
  APPEND it_message.
  it_message = ' '.
  APPEND it_message.
  it_message = 'Please find the below attachment "Delivery_Blk.xls" for the details.'.
  APPEND it_message.
  it_message = ' '.
  APPEND it_message.
  it_message = 'We now request you to send the required detail/s by return mail/post to enable us '.
  APPEND it_message.
  it_message = 'to despatch the pump/s at the earliest.'.
  APPEND it_message.
  it_message = ' '.
  APPEND it_message.
  it_message = ' '.
  APPEND it_message.
  it_message = 'Best Regards'.
  APPEND it_message.
  it_message = 'O.E. ENGINEER'.
  APPEND it_message.
endform.                    " POPULATE_EMAIL_MESSAGE_BODY

Answer 1

Hi,
Refer to the following piece of code. This is the simple code to send email with content and attachment.
Declaration
  DATA:    lwa_hd_change TYPE sood1,
           lt_objcont    TYPE STANDARD TABLE OF soli,
           lwa_objcont   TYPE soli,
           lt_receivers  TYPE STANDARD TABLE OF soos1,
           lwa_receivers TYPE soos1 ,
           lt_att_cont   TYPE STANDARD TABLE OF soli,
           lwa_att_cont  TYPE soli,
           lt_packing    TYPE STANDARD TABLE OF soxpl,
           lwa_packing   TYPE soxpl,
           lf_sent       TYPE sonv-flag,
           lf_size       TYPE i.
  CONSTANTS: lc_obj(11)  TYPE c VALUE 'BOMSouthco',
             lc_desc(20) TYPE c VALUE 'BOM Download',
             lc_lang(1)  TYPE c VALUE 'E',
             lc_raw(3)   TYPE c VALUE 'RAW',
             lc_net(1)   TYPE c VALUE 'U',
             lc_mail(4)  TYPE c VALUE 'MAIL',
             lc_xls(3)   TYPE c VALUE 'XLS',
             lc_ext(3)   TYPE c VALUE 'EXT'.
Passing values to the strutures used in SO_OBJECT_SEND function module
  lwa_hd_change-objla      = lc_lang.
  lwa_hd_change-objnam     = lc_obj.
  lwa_hd_change-objdes     = lc_desc.
  lwa_hd_change-objlen     = 255.
  lwa_objcont-line = text-t29.
  APPEND lwa_objcont TO lt_objcont.
  CLEAR lwa_objcont.
  lwa_receivers-recextnam  = text-t31.
  lwa_receivers-recesc     = lc_net.
  lwa_receivers-sndart     = lc_mail.
  lwa_receivers-sndex      = 'X'.
  lwa_receivers-sndpri     = 1.
  lwa_receivers-mailstatus = 'E'.
  APPEND lwa_receivers TO lt_receivers.
  CLEAR lwa_receivers.
  lwa_receivers-recextnam  = text-t30.
  lwa_receivers-recesc     = lc_net.
  lwa_receivers-sndart     = lc_mail.
  lwa_receivers-sndex      = 'X'.
  lwa_receivers-sndpri     = 1.
  lwa_receivers-mailstatus = 'E'.
  APPEND lwa_receivers TO lt_receivers.
  CLEAR lwa_receivers.
Passing values for the attachment file
  LOOP AT gt_output INTO gwa_output.
    CONCATENATE gf_lf  gwa_output-matnr  gf_etb  gwa_output-idnrk  gf_etb
                gwa_output-type   gf_etb  gwa_output-menge   gf_etb
                gwa_output-meins  gf_etb  gwa_output-comp    gf_etb
      INTO lwa_att_cont-line.
    APPEND lwa_att_cont TO lt_att_cont.
    CLEAR lwa_att_cont.
  ENDLOOP.
  CHECK lt_att_cont IS NOT INITIAL.
  DESCRIBE TABLE lt_att_cont LINES lf_size.
  lwa_packing-transf_bin = ' '.
  lwa_packing-head_start = 1.
  lwa_packing-head_num   = 0.
  lwa_packing-body_start = 1.
  lwa_packing-body_num   = lf_size.
  lwa_packing-file_ext   = lc_xls.
  lwa_packing-objlen     = lf_size * 255.
  lwa_packing-objtp      = lc_ext.
  lwa_packing-objdes     = lc_desc.
  lwa_packing-objnam     = lc_obj.
  APPEND lwa_packing TO lt_packing.
  CLEAR lwa_packing.
  CHECK gf_error IS NOT INITIAL. "Check if unix file is written
FM to send email to the intended recipients
  CALL FUNCTION 'SO_OBJECT_SEND'
    EXPORTING
      object_hd_change           = lwa_hd_change
      object_type                = lc_raw
    IMPORTING
      sent_to_all                = lf_sent
    TABLES
      objcont                    = lt_objcont
      receivers                  = lt_receivers
      packing_list               = lt_packing
      att_cont                   = lt_att_cont
    EXCEPTIONS
      active_user_not_exist      = 1
      communication_failure      = 2
      component_not_available    = 3
      folder_not_exist           = 4
      folder_no_authorization    = 5
      forwarder_not_exist        = 6
      note_not_exist             = 7
      object_not_exist           = 8
      object_not_sent            = 9
      object_no_authorization    = 10
      object_type_not_exist      = 11
      operation_no_authorization = 12
      owner_not_exist            = 13
      parameter_error            = 14
      substitute_not_active      = 15
      substitute_not_defined     = 16
      system_failure             = 17
      too_much_receivers         = 18
      user_not_exist             = 19
      originator_not_exist       = 20
      x_error                    = 21
      OTHERS                     = 22.
  IF sy-subrc = 0.
    MESSAGE s004 WITH text-t34.
  ENDIF.
  COMMIT WORK.
Reward if helpful.
Regards,
Ramya