Send file as attachment via mail

Question

Dear All,
I want to send a report (ALV) as attachment to some mail. I am using SO_NEW_DOCUMENT_SEND_API1. Can you please suggest how can I send mail as attachment. I am able to send ALV report as HTML format. I want to send it as attachment.
Thanks and regards,
Atanu

Answer 1

Hi,
plz check the below code.
it sends Excel sheet attachment with the mail using FM 'SO_DOCUMENT_SEND_API1'
code>>>>>>>>>>>>>>>>>>>>.
form send_email_with_attachment .
DATA: l_t_objbin LIKE solisti1 OCCURS 100 WITH HEADER LINE.
  DATA: i_body TYPE soli_tab WITH HEADER LINE.
  DATA: l_t_objtxt  LIKE solisti1   OCCURS 100 WITH HEADER LINE.
  DATA: l_t_objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
  DATA: l_t_objhead LIKE solisti1   OCCURS 1 WITH HEADER LINE.
  DATA: l_t_reclist LIKE somlreci1  OCCURS 5 WITH HEADER LINE.
  DATA: w_tabln TYPE i .              "for number of table lines
  DATA: w_line        TYPE so_text255.       " Line of text
  DATA: l_doc_chng  LIKE sodocchgi1.
  DATA: l_tab_lines LIKE sy-tabix.
  DATA: l_att_lines TYPE i.
  DATA: lv_lines  TYPE i.
  DATA : BEGIN OF wa_mrpnm,
           werks TYPE ZCSVT024D-werks,
           dispo TYPE ZCSVT024D-dispo,
           name_first TYPE ZCSVT024D-name_first,
           name_last  TYPE ZCSVT024D-name_last,
         END OF wa_mrpnm,
         l_i_mrpnm LIKE STANDARD TABLE OF wa_mrpnm.
  DATA : l_name TYPE string.
*Used for delimiting the columns in Excel Sheet.
  CLASS cl_abap_char_utilities DEFINITION LOAD.
  CONSTANTS:
  cr_mark(2) TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
  constants c_l_newline type ABAP_CHAR1 value %_NEWLINE. "#EC NOTEXT
  CLEAR : l_t_objpack,
  l_t_objhead,
  l_t_objbin,
  l_t_objtxt,
  l_t_reclist.
  REFRESH: l_t_objpack,
  l_t_objhead,
  l_t_objbin,
  l_t_objtxt,
  l_t_reclist.
Creating the content of the e-mail message text
  IF sy-sysid(1) = 'P'.
    IF p_order = 'X'.
     l_doc_chng-obj_name   = 'Subcontracting Setup Report'(m02).
      CONCATENATE 'Details of Orders Extract'(028) 'for Plant'(029)
                   p_werks
                   INTO l_doc_chng-obj_descr SEPARATED BY space.
      l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( l_t_objtxt ).
    ELSE.
     l_doc_chng-obj_name   = 'TEST ONLY!! SC Setup Report'(m03).
      CONCATENATE 'Details of Forecast Extract'(030) 'for Plant'(029)
                   p_werks
                   INTO l_doc_chng-obj_descr SEPARATED BY space.
      l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( l_t_objtxt ).
    ENDIF.
  ELSE.
    IF p_order = 'X'.
     l_doc_chng-obj_name   = 'Subcontracting Setup Report'(m02).
      CONCATENATE 'Details of Orders Extract'(028) 'for Plant'(029)
                   p_werks 'TEST TEST TEST'
                   INTO l_doc_chng-obj_descr SEPARATED BY space.
      l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( l_t_objtxt ).
    ELSE.
     l_doc_chng-obj_name   = 'TEST ONLY!! SC Setup Report'(m03).
      CONCATENATE 'Details of Forecast Extract'(030) 'for Plant'(029)
                   p_werks 'TEST TEST TEST'
                   INTO l_doc_chng-obj_descr SEPARATED BY space.
      l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( l_t_objtxt ).
    ENDIF.
  ENDIF.
  l_t_objtxt = 'Hi,'(036).
  APPEND l_t_objtxt.
  CLEAR l_t_objtxt.
  APPEND l_t_objtxt.
  CONCATENATE 'Please open the attachment to review details of the Report'(031)
              'for plant'(029) p_werks INTO l_t_objtxt
               SEPARATED BY space.
  APPEND l_t_objtxt.
  CLEAR l_t_objtxt.
  APPEND l_t_objtxt.
  DESCRIBE TABLE t_ddow LINES sy-tfill .
  IF sy-tfill GT 0 .
    MOVE 'These Materials have been marked as DDOW materials.'(032)
            TO l_t_objtxt.
    APPEND l_t_objtxt.
    CLEAR l_t_objtxt.
    APPEND l_t_objtxt.
    APPEND l_t_objtxt.
    APPEND l_t_objtxt.
    CONCATENATE 'Note! - This is an automatically generated email by the'(034)
                     'SAP system. Pls do not reply to the sender.'(035)
               INTO  l_t_objtxt
               SEPARATED BY space.
    APPEND l_t_objtxt.
    DESCRIBE TABLE l_t_objtxt LINES l_tab_lines.
    READ TABLE l_t_objtxt INDEX l_tab_lines.
   l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( l_t_objtxt )
  Creating the entry for the email text in the packing list
    CLEAR l_t_objpack-transf_bin.
    l_t_objpack-head_start = 1.
    l_t_objpack-head_num = 1.
    l_t_objpack-body_start = 1.
    l_t_objpack-body_num = l_tab_lines.
    l_t_objpack-doc_type = 'RAW'.
    lv_lines = l_tab_lines.
    APPEND l_t_objpack.
Columns Heading for Excel Attachment.
    CONCATENATE  'MRP Controller'(044)
                 'MRP Name'(047)
                 'Material'(037)
                 'Plant'(026)
                 'PP Cal'(038)
                 'Ship Date'(009)
                 'PO Number'(014)
                 'PO Line'(033)
                 'PP Text'(041)
         INTO i_body
        SEPARATED BY cr_mark.
    concatenate ' ' i_body into i_body separated by c_l_newline.
    APPEND i_body TO l_t_objtxt.
    CLEAR i_body.
  Get MRP Names
    SELECT werks dispo name_first name_last
      FROM ZCSVT024D
      INTO TABLE l_i_mrpnm
      FOR ALL ENTRIES IN t_ddow
      WHERE werks = t_ddow-werks
        AND dispo = t_ddow-dispo.
    IF sy-subrc = 0.
      SORT l_i_mrpnm by werks dispo.
    ENDIF.
Data to be shown in Excel Sheet.
    LOOP AT t_ddow INTO w_ddow.
      CLEAR : l_name.
      READ TABLE l_i_mrpnm INTO wa_mrpnm WITH KEY werks = w_ddow-werks
                                                  dispo = w_ddow-dispo
                                                  BINARY SEARCH.
      IF sy-subrc = 0.
        CONCATENATE wa_mrpnm-name_first wa_mrpnm-name_last
          INTO l_name SEPARATED BY space.
      ENDIF.
      CONCATENATE  w_ddow-dispo
                   l_name
                   w_ddow-matnr
                   w_ddow-werks
                   w_ddow-mrppp
                   w_ddow-datum
                   w_ddow-ebeln
                   w_ddow-ebelp
                   w_ddow-pptxt
            INTO i_body
        SEPARATED BY cr_mark.
      concatenate ' ' i_body into i_body separated by c_l_newline.
      APPEND i_body TO l_t_objtxt.
      CLEAR : w_ddow.
    ENDLOOP.
    DESCRIBE TABLE l_t_objtxt LINES l_tab_lines.
    DESCRIBE TABLE l_t_objtxt LINES l_att_lines.
    l_tab_lines = l_tab_lines - lv_lines.
  Creating the entry for attachment in the packing list
  objpack-transf_bin = 'X'.
    lv_lines = lv_lines + 1.
    l_t_objpack-head_start = 2.
    l_t_objpack-head_num = 1.
    l_t_objpack-body_start = lv_lines.
    l_t_objpack-body_num = l_tab_lines.
    l_t_objpack-doc_type = 'XLS'.
    l_t_objpack-obj_name = 'DDOW_Materials'(045).
    l_t_objpack-obj_descr = 'DDOW Marked Materials'(046).
    l_t_objpack-doc_size = l_tab_lines * 255.
    APPEND l_t_objpack.
    lv_lines = l_att_lines.
     **RECEIVERS...
    LOOP AT t_ddow INTO w_ddow.
      REFRESH l_t_reclist .
      CLEAR l_t_reclist.
* get the MRP controller from table
      READ TABLE t_mrpc INTO w_mrpc WITH KEY werks = p_werks
                                             dispo = w_ddow-dispo
                                             BINARY SEARCH .
      IF sy-subrc EQ 0 .
        MOVE: 'X'               TO l_t_reclist-express   ,
              'U'               TO l_t_reclist-rec_type  ,
              w_mrpc-smtp_addr  TO l_t_reclist-receiver  .
              APPEND l_t_reclist.
        EXIT.
      ENDIF.
    ENDLOOP.
  Sending the document
    IF NOT l_t_reclist[] IS INITIAL.
      CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
        EXPORTING
          document_data              = l_doc_chng
          commit_work                = 'X'
        TABLES
          packing_list               = l_t_objpack
          object_header              = l_t_objhead
          contents_bin               = l_t_objbin
          contents_txt               = l_t_objtxt
          receivers                  = l_t_reclist
        EXCEPTIONS
          too_many_receivers         = 1
          document_not_sent          = 2
          operation_no_authorization = 4
          OTHERS                     = 99.
    ENDIF.
    IF sy-subrc <> 0.
* Do nothing
    ELSE.
      COMMIT WORK AND WAIT.
      MESSAGE s899(8a) WITH 'Email Message sent successfully'."#EC
    ENDIF.
  ENDIF.
<<<<<<<<<<<<<<<<<<<<<<<
regards,
vikas.
plz reward if helpful..