Skip to Content
avatar image
Former Member

email to multiple receipient

Dear All,

I am using SO_DOCUMENT_SEND_API fm to send email.

Please tell me how to send mail to multiple receipients using this FM.

and also how to keep the receipients in the CC using that FM.

Thanks in advance

SHOBAN.

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

1 Answer

  • avatar image
    Former Member
    Aug 20, 2007 at 10:29 AM

    Hi,

    Check the following code:

    FORM SEND_MAIL.

    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 L_NUM(3).

    • Creation of the document to be sent

    • File Name

    DOC_CHNG-OBJ_NAME = 'SENDFILE'.

    • Mail Subject

    DOC_CHNG-OBJ_DESCR = 'Delivered Mail'.

    • Mail Contents

    OBJTXT = 'Object text'.

    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.

    • Creation of the document attachment

    LOOP AT ITAB_DATA.

    CONCATENATE ITAB_DATA-PRODUCTOR

    ITAB_DATA-VBELN

    ITAB_DATA-POSNR

    ITAB_DATA-MATNR INTO OBJBIN.

    APPEND OBJBIN.

    ENDLOOP.

    DESCRIBE TABLE OBJBIN LINES TAB_LINES.

    OBJHEAD = 'ORDERS'.

    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 = 'TXT'.

    OBJPACK-OBJ_NAME = 'WEBSITE'.

    OBJPACK-OBJ_DESCR = 'ORDERS.TXT'.

    OBJPACK-DOC_SIZE = TAB_LINES * 255.

    APPEND OBJPACK.

    • Completing the recipient list

    • target recipent

    clear RECLIST.

    RECLIST-RECEIVER = 'test@here.com'.

    RECLIST-EXPRESS = 'X'.

    RECLIST-REC_TYPE = 'U'.

    APPEND RECLIST.

    • copy recipents

    clear RECLIST.

    RECLIST-RECEIVER = 'secondtest@here.com'.

    RECLIST-EXPRESS = 'X'.

    RECLIST-REC_TYPE = 'U'.

    RECLIST-COPY = 'X'.

    APPEND RECLIST.

    • Sending the document

    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

    EXPORTING

    DOCUMENT_DATA = DOC_CHNG

    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.

    ENDFORM.

    Hope this helps.

    reward if helpful.

    Regards,

    Sipra

    Add comment
    10|10000 characters needed characters exceeded