How to include body of the mail along with attachment using the below FM

Question

Hi All,
I am using the FM 'SO_NEW_DOCUMENT_ATT_SEND_API1' to generate an e-mail with excel file as attachment. Can you please  let me know how to include body of the e-mail along with this attachment.
Thanks & Regards
Gowthami

Answer 1

hi,
see this code
TABLES: apqi.                         "Queue info definition
TYPES DECLARATION
*& Global Types
TYPE-POOLS: slis,                     "Type for alv list
            sx.                       "SAP connect
TYPE-POOLS: list.
*& Types
TYPES: BEGIN OF s_itab_apqi.
        INCLUDE STRUCTURE apqi.
TYPES: END OF s_itab_apqi.
           INTERNAL TABLE / WORK AREA DECLARATION             *
*&  For email  attachment
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:   it_packing_list  LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
        it_contents      LIKE solisti1 OCCURS 0 WITH HEADER LINE  ,
        it_receivers     LIKE somlreci1 OCCURS 0 WITH HEADER LINE ,
        it_attachment    LIKE solisti1 OCCURS 0 WITH HEADER LINE  ,
        it_object_header LIKE solisti1 OCCURS 0 WITH HEADER LINE  .
DATA:   v_cnt            TYPE i                                   ,
        v_sent_all(1)    TYPE c                                   ,
        v_doc_data       LIKE sodocchgi1                          ,
        gd_error         TYPE sy-subrc                            ,
        gd_reciever      TYPE sy-subrc                            .
DATA: p_email   TYPE somlreci1-receiver
                             VALUE 'mail id here of the reciever'.
*&   Variable for attachment name
DATA: v_attach(12).
*&   Internal table to get data from apqi table
table here
DATA: ws_line TYPE slis_listheader.
DATA: it_list_top_of_page TYPE slis_t_listheader.
CONSTANTS : v_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
VARIABLE DECLARATION
DATA: v_colpos        TYPE i.
DATA: v_transcnt(10)  TYPE c,
      v_transcnte(10) TYPE c,
      v_transcntf(10) TYPE c,
      v_msgcnt(10)    TYPE c,
      v_qid(20)       TYPE c.
DATA  v_tot_rec(3)    TYPE n.
DATA :v_date(10) TYPE c,
      v_time(8) TYPE c .
DATA: v_fromdate(10) .
DATA: v_todate(10) .
SELCTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-015.
PARAMETERS:
SELECTION-SCREEN END OF BLOCK blk1.
AT SELCTION SCREEN
AT SELECTION-SCREEN.
  IF p_dfrom IS INITIAL AND
     NOT p_dato IS INITIAL.
    MESSAGE e000(zp) WITH text-020.
  ENDIF.
START OF SELECTION
START-OF-SELECTION.
*&  To get data from APQI table into internal table
  PERFORM populate_itab.
**To Populate table with details to be entered into .xls file
  PERFORM build_xls_data_table.
END OF SELECTION
END-OF-SELECTION.
*& To display ALV list when IT_APQI is not initial
  IF NOT it_apqi[] IS INITIAL.
*&-- Send an Notification email
    PERFORM send_email .
*&--To populate fields for ALV
    PERFORM build_fieldcat   .
    PERFORM build_eventcat   .
    PERFORM e04_comment_build  USING it_list_top_of_page[].
    PERFORM build_layout     .
    PERFORM build_sortcat    .
    PERFORM start_list_viewer.
  ELSE.
*&-- If no record exists in IT_APQI internal table then message is displayed
    MESSAGE s000(zp) WITH text-021.
  ENDIF.
FORMS **********************************
populate itab here -
*&      Form  BUILD_FIELDCAT
FORM build_fieldcat .
ENDFORM.                    " BUILD_FIELDCAT
*&      Form  BUILD_EVENTCAT
FORM build_eventcat .
  DATA: v_header(25) .
  CONCATENATE 'ZPIPY016' p_dfrom p_dato INTO v_header.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = it_eventcat[]
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
  READ TABLE it_eventcat WITH KEY name = slis_ev_top_of_page
                             INTO wa_eventcat.
  IF sy-subrc = 0.
    MOVE v_formname_top_of_page TO wa_eventcat-form.
    APPEND wa_eventcat TO it_eventcat.
  ENDIF.
ENDFORM.                    " BUILD_EVENTCAT
*&      Form  BUILD_LAYOUT
FORM build_layout .
  ws_layout-no_keyfix           = 'X'.
  ws_layout-group_buttons       = 'X'.
  ws_layout-colwidth_optimize   = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form  BUILD_SORTCAT
FORM build_sortcat .
  CLEAR wa_sortcat.
  CLEAR v_colpos.
ENDFORM.                    " BUILD_SORTCAT
*&      Form  START_LIST_VIEWER
FORM start_list_viewer .
  DATA: ws_pgm  LIKE sy-repid.
*& To Display ALV list
  ws_pgm = sy-repid.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = ws_pgm
      is_layout          = ws_layout
      it_fieldcat        = it_fieldcat
      it_sort            = it_sortcat
      i_save             = 'A'
      it_events          = it_eventcat
    TABLES
      t_outtab           = it_apqi
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM.                    " START_LIST_VIEWER
*&      Form  BUILD_XLS_DATA_TABLE
FORM build_xls_data_table .
  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.
*& To populate it_attach table to be send as email.
  CONCATENATE 'Error of transaction SM35' ' '
     INTO it_attach SEPARATED BY con_tab.
  CONCATENATE con_cret it_attach  INTO it_attach.
  APPEND  it_attach.
*& To gettotal number of error records
  DESCRIBE TABLE it_apqi LINES v_tot_rec .
  CONCATENATE  'Number of Errors  = '  v_tot_rec
            INTO it_attach SEPARATED BY con_tab.
  CONCATENATE con_cret it_attach  INTO it_attach.
  APPEND  it_attach.
  CONCATENATE text-001
              text-002
              text-003
              text-004
              text-005
              text-006
              text-007
              text-008
              text-009
              text-010
              text-011
              text-012
         INTO it_attach SEPARATED BY con_tab.
  CONCATENATE con_cret it_attach  INTO it_attach.
  APPEND  it_attach.
*& To populate it_attach from it_apqi
  LOOP AT it_apqi INTO wa_apqi.
*& To get the date format in DD/MM/YYYY
    WRITE wa_apqi-credate TO v_date  DD/MM/YYYY.
*& To get time format in hh:mm:ss.
    v_time = wa_apqi-cretime.
    CONCATENATE  v_time(2) ':' v_time2(2) ':' v_time4(2) INTO v_time.
    v_transcnt  = wa_apqi-transcnt.
    v_transcnte = wa_apqi-transcnte.
    v_transcntf = wa_apqi-transcntf.
    v_msgcnt    = wa_apqi-msgcnt.
    v_qid       = wa_apqi-qid.
    CONCATENATE wa_apqi-groupid wa_apqi-creator
                     wa_apqi-qstate v_date
                     v_time wa_apqi-progid
                     wa_apqi-userid  v_transcnt
                     v_transcnte v_transcntf
                     v_msgcnt v_qid
               INTO it_attach SEPARATED BY con_tab.
    CONCATENATE con_cret it_attach  INTO it_attach.
    APPEND  it_attach  .
    CLEAR   it_attach  .
    CLEAR:  v_transcnt ,
            v_transcnte,
            v_transcntf,
            v_msgcnt   ,
            v_qid      ,
            v_date     ,
            v_time     .
  ENDLOOP.
ENDFORM  .                    " BUILD_XLS_DATA_TABLE
*&      Form  POPULATE_EMAIL_MESSAGE_BODY
FORM populate_email_message_body .
  REFRESH it_message.
  it_message = 'message here'.
  APPEND it_message.
  CLEAR it_message.
ENDFORM.                    " POPULATE_EMAIL_MESSAGE_BODY
*&      Form  SEND_FILE_AS_EMAIL_ATTACHMENT
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: 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.
  v_doc_data-doc_size = 1.
Populate the subject/generic message attributes
  v_doc_data-obj_langu = sy-langu.
  v_doc_data-obj_name  = 'SAPRPT'.
  v_doc_data-obj_descr = ld_mtitle .
  v_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
  CLEAR v_doc_data.
  READ TABLE it_attach INDEX v_cnt.
  v_doc_data-doc_size =
     ( v_cnt - 1 ) * 255 + STRLEN( it_attach ).
  v_doc_data-obj_langu  = sy-langu.
  v_doc_data-obj_name   = 'SAPRPT'.
  v_doc_data-obj_descr  = ld_mtitle.
  v_doc_data-sensitivty = 'F'.
  CLEAR it_attachment.
  REFRESH it_attachment.
  it_attachment[] = pit_attach[].
Describe the body of the message
  CLEAR it_packing_list.
  REFRESH it_packing_list.
  it_packing_list-transf_bin = space.
  it_packing_list-head_start = 1.
  it_packing_list-head_num = 0.
  it_packing_list-body_start = 1.
  DESCRIBE TABLE it_message LINES it_packing_list-body_num.
  it_packing_list-doc_type = 'RAW'.
  APPEND it_packing_list.
Create attachment notification
  it_packing_list-transf_bin = 'X'.
  it_packing_list-head_start = 1.
  it_packing_list-head_num   = 1.
  it_packing_list-body_start = 1.
  DESCRIBE TABLE it_attachment LINES it_packing_list-body_num.
  it_packing_list-doc_type   =  ld_format.
  it_packing_list-obj_descr  =  ld_attdescription.
  it_packing_list-obj_name   =  ld_attfilename.
  it_packing_list-doc_size   =  it_packing_list-body_num * 255.
  APPEND it_packing_list.
Add the recipients email address
  CLEAR it_receivers.
  REFRESH it_receivers.
  it_receivers-receiver = ld_email.
  it_receivers-rec_type = 'U'.
  it_receivers-com_type = 'INT'.
  it_receivers-notif_del = 'X'.
  it_receivers-notif_ndel = 'X'.
  APPEND it_receivers.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = v_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                = v_sent_all
    TABLES
      packing_list               = it_packing_list
      contents_bin               = it_attachment
      contents_txt               = it_message
      receivers                  = it_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 it_receivers.
    ld_receiver = it_receivers-retrn_code.
  ENDLOOP.
ENDFORM.                    " SEND_FILE_AS_EMAIL_ATTACHMENT
*&      Form  SEND_EMAIL
FORM send_email .
Populate message body text
  PERFORM populate_email_message_body.
  PERFORM send_file_as_email_attachment
                               TABLES it_message
                                      it_attach
                                USING p_email
                                      'Error Sessions from SM35'
                                      'XLS'
                                      'filename'
                                      v_attach
                             CHANGING gd_error
                                      gd_reciever.
ENDFORM.                    " SEND_EMAIL
*&      Form  E04_COMMENT_BUILD
      text
     -->E04_LT_TOP_OF_PAGE  text
FORM e04_comment_build USING lt_top_of_page TYPE slis_t_listheader.
  CLEAR: v_fromdate,
         v_todate.
  WRITE p_dfrom TO v_fromdate  DD/MM/YYYY.
  WRITE p_dato TO  v_todate    DD/MM/YYYY.
*& To write header in ALV list
*& Program name
  CLEAR ws_line.
  ws_line-typ  = 'H'.
  ws_line-info = text-016.
  APPEND ws_line TO lt_top_of_page.
  CLEAR ws_line.
  ws_line-typ  = 'S'.
  ws_line-key = text-018.
  ws_line-info = v_tot_rec.
  APPEND ws_line TO lt_top_of_page.
*& Date from
  CLEAR ws_line.
  ws_line-typ  = 'S'.
  ws_line-key  = text-050.
  ws_line-info = v_fromdate.
  APPEND ws_line TO lt_top_of_page.
*& Date to
  CLEAR ws_line.
  ws_line-typ  = 'S'.
  ws_line-key  = text-051.
  ws_line-info = v_todate.
  APPEND ws_line TO lt_top_of_page.
ENDFORM.                    "E04_COMMENT_BUILD
      FORM TOP_OF_PAGE                                              *
FORM top_of_page.
*& To write Heading in Top of page
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_list_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
thanks