This document summarizes an ABAP program that:
1. Extracts data from a database table and converts it to an Excel file
2. Attaches the Excel file to an email
3. Sends the email to a recipient
This document summarizes an ABAP program that:
1. Extracts data from a database table and converts it to an Excel file
2. Attaches the Excel file to an email
3. Sends the email to a recipient
This document summarizes an ABAP program that:
1. Extracts data from a database table and converts it to an Excel file
2. Attaches the Excel file to an email
3. Sends the email to a recipient
This document summarizes an ABAP program that:
1. Extracts data from a database table and converts it to an Excel file
2. Attaches the Excel file to an email
3. Sends the email to a recipient
DATA(lr_zip) = NEW cl_abap_zip( ). lr_zip->load( lv_xlsx ). lr_zip->get( EXPORTING name = 'xl/worksheets/sheet1.xml' IMPORTING content = DATA(lv_file) ).
DATA(lr_file) = NEW cl_xml_document( ).
lr_file->parse_xstring( lv_file ). * Row elements are under SheetData DATA(lr_xlnode) = lr_file->find_node( 'sheetData' ). DATA(lr_xlrows) = lr_xlnode->get_children( ). * Create new element in the XML file lr_xlworksheet ?= lr_file->find_node( 'worksheet' ). DATA(lr_xlsheetpr) = cl_ixml=>create( )->create_document( )->create_element( name = 'sheetPr' ). DATA(lr_xloutlinepr) = cl_ixml=>create( )->create_document( )->create_element( name = 'outlinePr' ). lr_xlsheetpr->if_ixml_node~append_child( lr_xloutlinepr ). lr_xloutlinepr->set_attribute( name = 'summaryBelow' value = 'false' ). lr_xldimension ?= lr_file->find_node( 'dimension' ). lr_xlworksheet->if_ixml_node~insert_child( new_child = lr_xlsheetpr ref_child = lr_xldimension ). * Create xstring and move it to XLSX lr_file->render_2_xstring( IMPORTING stream = lv_file ). lr_zip->delete( EXPORTING name = 'xl/worksheets/sheet1.xml' ). lr_zip->add( EXPORTING name = 'xl/worksheets/sheet1.xml' content = lv_file ). lv_xlsx = lr_zip->save( ).
DATA lv_size TYPE i.
DATA lt_bintab TYPE solix_tab. DATA: main_text TYPE bcsy_text, "IT for emial body w_text LIKE LINE OF main_text, "work area for email body lv_subject TYPE char50 VALUE 'This is PI Doc deletion data'. DATA: lo_sender TYPE REF TO if_sender_bcs VALUE IS INITIAL. "sender
* Convert to binary CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' EXPORTING buffer = lv_xlsx IMPORTING output_length = lv_size TABLES binary_tab = lt_bintab.
* create persistent send request
DATA(send_request) = cl_bcs=>create_persistent( ). * create document object from internal table with text
w_text-line = 'This is the first line of email body'.
APPEND w_text TO main_text. CLEAR w_text. w_text-line = 'this is 2nd line of email body'. APPEND w_text TO main_text. CLEAR w_text.
IF lv_sent_to_all = 'X'. MESSAGE i000(8i) WITH 'Email send succesfully'. ELSEIF lv_sent_to_all IS INITIAL. MESSAGE i000(8i) WITH 'Email not send'. ENDIF. COMMIT WORK.
