Development (ABAP Development WorkBench, ABAP/4 programming)
9 posts • Page 1 of 1
A sample is as follows
Ensure that you fill YOUR eMAIL ID as I receive a lot of test copies in my email.
Code: Select all
REPORT ZMAIL. 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. * Creation of the document to be sent * File Name DOC_CHNG-OBJ_NAME = 'SENDFILE'. * Mail Subject CONCATENATE SY-DATUM 'Send External Mail' SY-UZEIT INTO DOC_CHNG-OBJ_DESCR SEPARATED BY SPACE. *OC_CHNG-OBJ_DESCR = 'Send External Mail'. * Mail Contents OBJTXT = 'Testing sending Mails'. APPEND OBJTXT. OBJTXT = 'First sentence by Kumar K Rangaraj ABAP Programmer'. APPEND OBJTXT. OBJTXT = 'Second line for Kumar KR, Britain'. 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. * Completing the recipient list RECLIST-RECEIVER = 'firstname.lastname@example.org'. RECLIST-REC_TYPE = 'U'. RECLIST-EXPRESS = 'X'. APPEND RECLIST. RECLIST-RECEIVER = 'KRANGARAJ'. "User your SAP User Name RECLIST-REC_TYPE = 'B'. RECLIST-EXPRESS = 'X'. APPEND RECLIST. *RECLIST-RECEIVER = 'SAPUSERNAME'. *RECLIST-REC_TYPE = 'P'. *APPEND RECLIST. * Sending the document CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' EXPORTING DOCUMENT_DATA = DOC_CHNG PUT_IN_OUTBOX = SPACE * 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: / 'Result of the send process:'. LOOP AT RECLIST. WRITE: / RECLIST-RECEIVER(48), ':'. IF RECLIST-RETRN_CODE = 0. WRITE 'The document was sent'. ELSE. WRITE 'The document could not be sent'. ENDIF. ENDLOOP. WHEN 1. WRITE: / 'No authorization for sending to the specified number', 'of recipients'. WHEN 2. WRITE: / 'Document could not be sent to any recipient'. WHEN 4. WRITE: / 'No send authorization'. WHEN OTHERS. WRITE: / 'Error occurred while sending'. ENDCASE.
Anonymous wrote:How to use this FM for PDF? Please let me know..
I have tried with this FM but not able to upload the files, there is the other way which i have approached...but this will not work in background, as it picks file from presentation server.
Refer to viewtopic.php?t=22468&highlight=
or we have to use the sequence of FM to send an attachment, like SO_ATTACHMENT_INSERT