Send more than one PDF attachment using SO_DOCUMENT_SEND_API1

[former_member208676]

Hello,

I have a program that is using SO_DOCUMENT_SEND_API1 to send a single PDF attachment.

I have been trying unsuccessfully to use it to create a 2nd PDF attachments. I think I may be using the structures improperly (body_num, etc.)

Does anyone have a link to an example program? That would be very helpful.

Thanks in advance.

[Former Member]

Have a look at this sample code

• Prepare Packing List

PERFORM prepare_packing_list.

• Set recipient - email address here!!!

mailrec-receiver = '[email protected]'.

mailrec-rec_type = 'U'.

APPEND mailrec.

• Sending the document

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = maildata

put_in_outbox = 'X'

TABLES

packing_list = mailpack

object_header = mailhead

contents_bin = mailbin

contents_txt = mailtxt

receivers = mailrec

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

operation_no_authorization = 4

OTHERS = 99.

ENDFORM. "send_form_via_email

************************************************************************

• Form PREPARE_PACKING_LIST

************************************************************************

FORM prepare_packing_list.

CLEAR: mailpack, mailbin, mailhead.

REFRESH: mailpack, mailbin, mailhead.

DESCRIBE TABLE mailtxt LINES tab_lines.

READ TABLE mailtxt INDEX tab_lines.

maildata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( mailtxt ).

• Creation of the entry for the compressed document

CLEAR mailpack-transf_bin.

mailpack-head_start = 1.

mailpack-head_num = 0.

mailpack-body_start = 1.

mailpack-body_num = tab_lines.

mailpack-doc_type = 'RAW'.

APPEND mailpack.

mailhead = 'TEST.TXT'.

APPEND mailhead.

• File 1

mailbin = 'This is file 1'.

APPEND mailbin.

DESCRIBE TABLE mailbin LINES tab_lines.

mailpack-transf_bin = 'X'.

mailpack-head_start = 1.

mailpack-head_num = 1.

mailpack-body_start = 1.

mailpack-body_num = tab_lines.

mailpack-doc_type = 'TXT'.

mailpack-obj_name = 'TEST1'.

mailpack-obj_descr = 'Subject'.

mailpack-doc_size = tab_lines * 255.

APPEND mailpack.

*File 2

mailbin = 'This is file 2'.

APPEND mailbin.

DATA: start TYPE i.

DATA: end TYPE i.

start = tab_lines + 1.

DESCRIBE TABLE mailbin LINES end.

mailpack-transf_bin = 'X'.

mailpack-head_start = 1.

mailpack-head_num = 1.

mailpack-body_start = start.

mailpack-body_num = end.

mailpack-doc_type = 'TXT'.

mailpack-obj_name = 'TEST2'.

mailpack-obj_descr = 'Subject'.

mailpack-doc_size = tab_lines * 255.

APPEND mailpack.