Email attachment in cl_document_bcs

Question

Hi Folks!
TYPES:  BEGIN OF ty_final_tab,
            guid_lclic    TYPE /sapsll/lclic-guid_lclic,
            lgreg         TYPE /sapsll/lclic-lgreg,
            lgreg_t       TYPE /sapsll/t606gt-text1, "legal text
            licty         TYPE /sapsll/lclic-licty,
            licty_t   TYPE /sapsll/t606t-text1, "licence tex
            exlic         TYPE /sapsll/lclic-exlic,
            guid_lclicv   TYPE /sapsll/lclicv-guid_lclicv,
            amnt_flt      TYPE /sapsll/lclicv-amnt_flt,
            amnt_flt_wval TYPE /sapsll/lclicv-amnt_flt,
            END OF ty_final_tab.
DATA: gt_final_tab TYPE STANDARD TABLE OF ty_final_tab,
         wa_final_tab TYPE ty_final_tab.
How to pass itab gt_final_tab in cl_document_bcs class as an attachment ??
Anee

Answer 1

DATA: send_request TYPE REF TO cl_bcs.
DATA: text TYPE bcsy_text.
DATA: att_text TYPE bcsy_text.
DATA: document TYPE REF TO cl_document_bcs.
DATA: sender TYPE REF TO cl_sapuser_bcs.
DATA: recipient TYPE REF TO if_recipient_bcs.
DATA: bcs_exception TYPE REF TO cx_bcs.
DATA: sent_to_all TYPE os_boolean.
DATA: lwa_receivers TYPE adr6.
DATA:lit_receivers TYPE TABLE OF adr6 INITIAL SIZE 0 WITH HEADER LINE.
lwa_receivers-smtp_addr = 'email1'.
APPEND lwa_receivers TO lit_receivers.
lwa_receivers-smtp_addr = ' email2'.
APPEND lwa_receivers TO lit_receivers.
TRY.
create persistent send request
send_request = cl_bcs=>create_persistent( ).
create and set document with attachment
create document from internal table with text
APPEND p_it_error_records TO text.
document = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = text
i_length = '12'
i_subject = 'test mail' ).
add attachment to document
REFRESH text.
APPEND p_it_error_records TO text .
CALL METHOD document->add_attachment
EXPORTING
i_attachment_type = 'RAW'
i_attachment_subject = 'My attachment'
i_attachment_size = '21'
i_att_content_text = text.
add document to send request
CALL METHOD send_request->set_document( document ).
LOOP AT lit_receivers INTO lwa_receivers .
recipient = cl_cam_address_bcs=>create_internet_address( lwa_receivers-smtp_addr
ENDLOOP.
add recipient with its respective attributes to send request
CALL METHOD send_request->add_recipient
EXPORTING
i_recipient = recipient
i_express = 'X'.
try to use like this