Sending TXT files via FM SO_NEW_DOCUMENT_ATT_SEND_API1

Question

Hi developers, I have the following question...
What should I do to attach a text file to an e-mail I send using the FM "SO_NEW_DOCUMENT_ATT_SEND_API1"?
I succed at sending out the mail editing its body and its object, but I still can't attach a TXT file from my 'C:\' directory.
Coul you help me please?
Thanx to everybody.

Answer 1

*& Report  Z_TEST_MAIL                                                 *
REPORT  Z_TEST_MAIL                             .
DATA: P_APP_ID(3)  VALUE 'SPY',
      P_AP_NUM(2) TYPE N VALUE  '03',
      P_TITLE(50),
      EM_BODY LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF EM_ATTACH OCCURS 10,
         ZZIPFROM(10),
         ZZIPTO(5),
         GAPFROM(12),
         GAPTO(12),
      END OF EM_ATTACH.
*_ Start of E-mail content.
   EM_BODY = 'Dear User,'.
   APPEND EM_BODY.
   EM_BODY = ' '.
   APPEND EM_BODY.
   EM_BODY = 'Please find in the attachment the Zip code Ranges that'.
   CONCATENATE EM_BODY ' are missing' INTO EM_BODY.
   APPEND EM_BODY.
   EM_BODY = 'Please correct the same to ensure that all the Zip codes'.
   CONCATENATE EM_BODY ' are maintained' INTO EM_BODY.
   APPEND EM_BODY.
   EM_BODY = 'In case of any clarifications please contact IT support.'.
   APPEND EM_BODY.
   EM_BODY = ' '.
   APPEND EM_BODY.
   EM_BODY = 'Thanks,'.
   APPEND EM_BODY.
   EM_BODY = ' '.
   APPEND EM_BODY.
   EM_BODY = 'IT Support.'.
   APPEND EM_BODY.
   P_TITLE = 'Missing Zip Code ranges'.
      EM_ATTACH-ZZIPFROM = 'chandra'.
      EM_ATTACH-ZZIPTO   = 'Test1'.
      EM_ATTACH-GAPFROM  =  'Test2'.
      EM_ATTACH-GAPTO    = 'Test3'.
      APPEND EM_ATTACH.
dATA : VAR1(80).
DATA : ATTACH_REC TYPE I.
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE,
       OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE,
       OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE,
       OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE,
       RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE,
       DOC_CHNG LIKE SODOCCHGI1,
       TAB_LINES LIKE SY-TABIX.
Creation of the document to be sent
  DOC_CHNG-OBJ_NAME = 'Mat Attach'.
*DOC_CHNG-OBJ_DESCR = 'Please check the error message'(002).
DOC_CHNG-OBJ_DESCR = P_TITLE.
APPEND LINES OF EM_BODY TO 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 EM_ATTACH LINES ATTACH_REC.
IF ATTACH_REC GE '1'.
*Start of email attachement of internal table conversition
*objbin = 'From Code To Code      Gap from       Gap to'.
*append objbin.
APPEND LINES OF EM_ATTACH TO OBJBIN.
*end of email attachement of internal table conversition
DESCRIBE TABLE OBJBIN LINES OBJPACK-BODY_NUM.
OBJPACK-TRANSF_BIN = 'X'.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 1.
OBJPACK-BODY_START = 1.
OBJPACK-DOC_SIZE = OBJPACK-BODY_NUM * 255.
OBJPACK-DOC_TYPE = 'TXT'.
OBJPACK-OBJ_DESCR = 'Missing Zip code ranges'.  " Description
APPEND OBJPACK. CLEAR OBJPACK.
ENDIF.
*Completing the recipient list
RECLIST-RECEIVER = '[email protected]'.
RECLIST-REC_TYPE = 'U'.
APPEND RECLIST.
CLEAR RECLIST.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA = DOC_CHNG
       PUT_IN_OUTBOX = 'X'
      COMMIT_WORK                       = '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.
     IF SY-SUBRC = 0.
       WRITE:/ 'MAIL Sent'.
     ENDIF.
hERE IS THE sample code of txt attachments.