Sending mail attachment as XML file

Question

Hi Experts,
I have a XML in an ITAB.
I want to send this data as a mail attachment, any body help, if any one have sample code please send me.
Thanks,
Regards
Venkat

Answer 1

hi
chk the sample code
REPORT ZMAIL_XLS NO STANDARD PAGE HEADING.
Data for mailing purpose
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER
LINE.
DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER
LINE.
DATA: OBJBIN  LIKE SOLISTI1 OCCURS 10 WITH HEADER
LINE.
DATA: OBJTXT  LIKE SOLISTI1 OCCURS 10 WITH HEADER
LINE.
DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER
LINE.
DATA: DOC_CHNG  LIKE SODOCCHGI1.
DATA: TAB_LINES LIKE SY-TABIX.
Data required for preparing XLS type attachment
DATA: V_TABS     TYPE X VALUE '09',
      V_NEW_LINE TYPE X VALUE '0D'.
START-OF-SELECTION.
Prepare data to send
  PERFORM PREPARE_DATA.
Send mail with XLS attachment
  PERFORM SEND_MAIL.
*&      Form  send_mail
form send_mail.
Creation of the document to be sent
  DOC_CHNG-OBJ_NAME = 'TEST'.
  DOC_CHNG-OBJ_DESCR = 'TEST MAIL WITH XLS
ATTACHMENT'. "mail subject
  OBJTXT = 'Test mail with XLS attachment'.
  APPEND OBJTXT.
  CLEAR OBJTXT.
  APPEND OBJTXT.
  APPEND OBJTXT.
  OBJTXT = 'Please double click the attachment to
verify'.
  APPEND OBJTXT.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ TABLE OBJTXT INDEX TAB_LINES.
  DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 +
STRLEN( OBJTXT ).
Creation of the entry for the compressed document
  CLEAR OBJPACK-TRANSF_BIN.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
  OBJPACK-DOC_TYPE   = 'RAW'.
  APPEND OBJPACK.
  DESCRIBE TABLE OBJBIN LINES TAB_LINES.
  OBJHEAD = 'Sample XLS attachement'. "
  APPEND OBJHEAD.
Creation of the entry for the compressed attachment
  OBJPACK-TRANSF_BIN = 'X'.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 1.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
  OBJPACK-DOC_TYPE   = 'XLS'.
  OBJPACK-OBJ_NAME   = 'TEST'.
  OBJPACK-OBJ_DESCR  = 'Test.XLS'.
  OBJPACK-DOC_SIZE   = TAB_LINES * 255.
  APPEND OBJPACK.
Completing the recipient list
For sending mail to Internet Address
RECLIST-RECEIVER = '[email protected]'.
RECLIST-REC_TYPE = 'U'.
For sending mail to SAP user ID
RECLIST-RECEIVER = 'fing087'.
RECLIST-REC_TYPE = 'B'.
  APPEND RECLIST.
Sending the document
       CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
            EXPORTING
                 DOCUMENT_DATA = DOC_CHNG
                 PUT_IN_OUTBOX = 'X'
            TABLES
                 PACKING_LIST  = OBJPACK
                 OBJECT_HEADER = OBJHEAD
                 CONTENTS_BIN  = OBJBIN
                 CONTENTS_TXT  = OBJTXT
                 RECEIVERS     = RECLIST
            EXCEPTIONS
                 TOO_MANY_RECEIVERS         = 1
                 DOCUMENT_NOT_SENT          = 2
                 OPERATION_NO_AUTHORIZATION = 4
                 OTHERS                     = 99.
      CASE SY-SUBRC.
        WHEN 0.
          WRITE  :/ 'MAIL SENT....'.
        WHEN 1.
          WRITE  :/ 'TOO MANY RECEIVERS'.
        WHEN 2.
          WRITE  :/ 'DOCUMENT NOT SENT'.
        WHEN 4.
          WRITE  :/ 'NO SEND AUTHORIZATION'.
        WHEN OTHERS.
          WRITE  :/ 'ERROR OCCURED WHILE SENDING
MAIL'.
      ENDCASE.
endform.                    " send_mail
*&      Form  PREPARE_DATA
FORM PREPARE_DATA.
  CONCATENATE 'NAME'
              'ADDRESS'
              'PHONE'
          INTO OBJBIN-LINE
          SEPARATED BY V_TABS.
  APPEND OBJBIN.
  CLEAR  OBJBIN.
  CONCATENATE  'Hajira'
               'MIG-2022'
               '23025487'
               INTO OBJBIN-LINE SEPARATED BY V_TABS.
  CONCATENATE V_NEW_LINE  OBJBIN-LINE INTO
OBJBIN-LINE .
  APPEND OBJBIN.
  CLEAR  OBJBIN.
  CONCATENATE  'Faiz'
               'MIG-2022'
               '23025487'
               INTO OBJBIN-LINE SEPARATED BY V_TABS.
  CONCATENATE V_NEW_LINE  OBJBIN-LINE INTO
OBJBIN-LINE .
  APPEND OBJBIN.
  CLEAR  OBJBIN.
ENDFORM.                    " PREPARE_DATA
**reward if helpful
regards,
madhumitha