货铺QQ群号：834508274
有时候没有上载操作，直接组织数据并生成Excel 附件直接发送。
效果图
参考代码
REPORT zlm_email03.
TYPE-POOLS: ixml.
TYPES: BEGIN OF xml_line,
data(255) TYPE x,
END OF xml_line.
DATA: l_xml_table_forecast TYPE TABLE OF xml_line,
l_rc TYPE i,
l_xml_size TYPE i,
wa_xml TYPE xml_line.
CONSTANTS gc_mark VALUE 'X'.
* gt_data ASSIGNING <ls_data>.
DATA:
gt_data TYPE TABLE OF spfli.
FIELD-SYMBOLS <ls_data> LIKE LINE OF gt_data.
START-OF-SELECTION.
SELECT * FROM spfli INTO TABLE gt_data.
PERFORM frm_process_xml_data USING 1.
PERFORM frm_send_email USING '[email protected]'.
*&---------------------------------------------------------------------*
*& Form frm_process_xml_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RELTYPE text
*----------------------------------------------------------------------*
FORM frm_process_xml_data USING reltype TYPE i.
DATA: l_ixml TYPE REF TO if_ixml,
l_streamfactory TYPE REF TO if_ixml_stream_factory,
l_ostream TYPE REF TO if_ixml_ostream,
l_renderer TYPE REF TO if_ixml_renderer,
l_document TYPE REF TO if_ixml_document.
DATA: l_element_root TYPE REF TO if_ixml_element,
r_element TYPE REF TO if_ixml_element,
r_worksheet TYPE REF TO if_ixml_element,
r_table TYPE REF TO if_ixml_element,
r_column TYPE REF TO if_ixml_element,
r_row TYPE REF TO if_ixml_element,
r_cell TYPE REF TO if_ixml_element,
r_data TYPE REF TO if_ixml_element,
l_value TYPE string.
DEFINE fill_data.
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
l_value = &1.
r_data = l_document->create_simple_element( name = 'Data' value = l_value parent = r_cell ).
r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
END-OF-DEFINITION.
* create a ixml factory
l_ixml = cl_ixml=>create( ).
* create the DOM object model
l_document = l_ixml->create_document( ).
* create workbook
PERFORM create_workbook USING l_document
r_worksheet
r_table.
* column formatting
CASE reltype.
WHEN 1.
PERFORM frm_forecast_column_format USING l_document r_table.
WHEN 2.
WHEN OTHERS.
ENDCASE.
LOOP AT gt_data ASSIGNING <ls_data>.
r_row = l_document->create_simple_element( name = 'Row' parent = r_table ).
fill_data:
<ls_data>-carrid,
<ls_data>-connid,
<ls_data>-countryfr,
<ls_data>-cityfrom,
<ls_data>-airpfrom,
<ls_data>-countryto,
<ls_data>-cityto,
<ls_data>-airpto.
ENDLOOP.
* creating a stream factory
l_streamfactory = l_ixml->create_stream_factory( ).
* connect internal xml table to stream factory
CASE reltype.
WHEN 1.
l_ostream = l_streamfactory->create_ostream_itable( table = l_xml_table_forecast ).
WHEN 2.
WHEN OTHERS.
ENDCASE.
* rendering the document
l_renderer = l_ixml->create_renderer( ostream = l_ostream document = l_document ).
l_rc = l_renderer->render( ).
* saving the xml document
l_xml_size = l_ostream->get_num_written_raw( ).
ENDFORM. " FRM_PROCESS_XML_DATA
*&---------------------------------------------------------------------*
*& Form CREATE_WORKBOOK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_L_DOCUMENT text
* -->P_R_WORKSHEET text
* -->P_R_TABLE text
*----------------------------------------------------------------------*
FORM create_workbook USING l_document TYPE REF TO if_ixml_document
r_worksheet TYPE REF TO if_ixml_element
r_table TYPE REF TO if_ixml_element.
DATA: l_element_root TYPE REF TO if_ixml_element,
ns_attribute TYPE REF TO if_ixml_attribute,
r_element_properties TYPE REF TO if_ixml_element,
l_value TYPE string.
* create root node 'workbook'
l_element_root = l_document->create_simple_element( name = 'Workbook' parent = l_document ).
l_element_root->set_attribute( name = 'xmlns' value = 'urn:schemas-microsoft-com:office:spreadsheet' ).
ns_attribute = l_document->create_namespace_decl( name = 'ss' prefix = 'xmlns'
uri = 'urn:schemas-microsoft-com:office:spreadsheet' ).
l_element_root->set_attribute_node( ns_attribute ).
ns_attribute = l_document->create_namespace_decl( name = 'x' prefix = 'xmlns'
uri = 'urn:schemas-microsoft-com:office:excel' ).
l_element_root->set_attribute_node( ns_attribute ).
* create node for document properties
r_element_properties = l_document->create_simple_element( name = 'TEST_REPORT' parent = l_element_root ).
l_value = sy-uname.
l_document->create_simple_element( name = 'Author' value = l_value parent = r_element_properties ).
* worksheet
r_worksheet = l_document->create_simple_element( name = 'Worksheet' parent = l_element_root ).
r_worksheet->set_attribute_ns( name = 'Name' prefix = 'ss' value = 'Sheet1' ).
* table
r_table = l_document->create_simple_element( name = 'Table' parent = r_worksheet ).
r_table->set_attribute_ns( name = 'FullColumns' prefix = 'x' value = '1' ).
r_table->set_attribute_ns( name = 'FullRows' prefix = 'x' value = '1' ).
ENDFORM. " CREATE_WORKBOOK
*&---------------------------------------------------------------------*
*& Form FRM_FORECAST_COLUMN_FORMAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_L_DOCUMENT text
* -->P_R_TABLE text
*----------------------------------------------------------------------*
FORM frm_forecast_column_format USING l_document TYPE REF TO if_ixml_document
r_table TYPE REF TO if_ixml_element.
DATA: l_element_root TYPE REF TO if_ixml_element,
r_column TYPE REF TO if_ixml_element,
r_row TYPE REF TO if_ixml_element,
r_cell TYPE REF TO if_ixml_element,
r_data TYPE REF TO if_ixml_element,
l_value TYPE string.
DATA: lv_short TYPE string,
lv_medium TYPE string,
lv_long TYPE string,
lv_exe_date TYPE char10,
lv_exe_time TYPE char10,
lv_exe_user TYPE string,
lt_month_names TYPE TABLE OF t247,
ls_month_name TYPE t247,
lv_date_add TYPE sy-datum,
lv_count TYPE i.
DEFINE fill_header.
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
r_data = l_document->create_simple_element( name = 'Data' value = &1 parent = r_cell ).
r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
END-OF-DEFINITION.
lv_short = '60'.
lv_medium = '90'.
lv_long = '150'.
WRITE sy-datum TO lv_exe_date.
CONCATENATE sy-uzeit+0(2) ':' sy-uzeit+2(2) INTO lv_exe_time.
lv_exe_user = sy-uname.
CALL FUNCTION 'MONTH_NAMES_GET'
EXPORTING
language = sy-langu
TABLES
month_names = lt_month_names
EXCEPTIONS
month_names_not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE lt_month_names WITH KEY mnr = sy-datum+4(2) INTO ls_month_name.
ENDIF.
* columns and width
* line
DO 1 TIMES.
r_column = l_document->create_simple_element( name = 'Column' parent = r_table ).
r_column->set_attribute_ns( name = 'Width' prefix = 'ss' value = lv_short ).
ENDDO.
"列数
DO 8 TIMES.
r_column = l_document->create_simple_element( name = 'Column' parent = r_table ).
ENDDO.
* information row
r_row = l_document->create_simple_element( name = 'Row' parent = r_table ).
r_row->set_attribute_ns( name = 'AutoFitHeight' prefix = 'ss' value = '1' ).
* type
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
l_value = 'SFLIGHT_FORECAST'.
r_data = l_document->create_simple_element( name = 'Data' value = l_value parent = r_cell ).
r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
DO 3 TIMES.
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
ENDDO.
* name
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
l_value = sy-uname.
r_data = l_document->create_simple_element( name = 'Data' value = l_value parent = r_cell ). " Data
r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
* Date
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
l_value = lv_exe_date.
r_data = l_document->create_simple_element( name = 'Data' value = l_value parent = r_cell ). " Data
r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
* Time
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
l_value = lv_exe_time.
r_data = l_document->create_simple_element( name = 'Data' value = l_value parent = r_cell ). " Data
r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
* Column Headers Row
r_row = l_document->create_simple_element( name = 'Row' parent = r_table ).
r_row->set_attribute_ns( name = 'AutoFitHeight' prefix = 'ss' value = '1' ).
fill_header:
'Airline Code',
'Flight Connection Number',
'Country Key',
'Departure city',
'Departure airport',
'Country Key',
'Arrival city',
'Destination airport'.
ENDFORM. " FRM_FORECAST_COLUMN_FORMAT
*&---------------------------------------------------------------------*
*& Form frm_send_email
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PV_EMAIL text
*----------------------------------------------------------------------*
FORM frm_send_email USING pv_email.
DATA: lc_xls_type TYPE so_obj_tp VALUE 'XLS',
lc_codepage TYPE abap_encod VALUE '4103',
lv_string TYPE string,
lv_size TYPE so_obj_len,
lc_add_attc TYPE so_obj_des VALUE 'popup',
lt_binary_content TYPE solix_tab.
DATA:
gs_solix TYPE solix,
binary_content_forecast TYPE solix_tab,
sent_to_all TYPE os_boolean,
main_text TYPE bcsy_text,
send_request TYPE REF TO cl_bcs,
document TYPE REF TO cl_document_bcs,
recipient TYPE REF TO if_recipient_bcs,
bcs_exception TYPE REF TO cx_bcs,
mailto TYPE ad_smtpadr.
DATA lv_body TYPE string.
DATA l_htmlext TYPE soli_tab.
mailto = pv_email.
LOOP AT l_xml_table_forecast INTO wa_xml.
CLEAR gs_solix.
gs_solix-line = wa_xml-data.
APPEND gs_solix TO binary_content_forecast.
ENDLOOP.
CLEAR lv_body.
CLEAR l_htmlext[].
TRY .
* -------------create persistent sent request----------------
send_request = cl_bcs=>create_persistent( ).
* -------------create and set document with attachment-------
* create document object from internal table with text
CONCATENATE lv_body '<html><body><table>' INTO lv_body.
"here add table content within rows (<tr>) and cells (<td>)
CONCATENATE lv_body '<tr>'
'<td>' 'Dear:' '</td>'
'<td>' '' '</td>'
'</tr>' INTO lv_body.
CONCATENATE lv_body '<tr>'
'<td>' ' ' '</td>'
'<td>' 'Detail information please check the Attachment Excel' '</td>'
'</tr>' INTO lv_body.
"close table
CONCATENATE lv_body '</table>' INTO lv_body.
"now close html format
CONCATENATE lv_body '</body></html>' INTO lv_body.
"transfer to table type
CALL FUNCTION 'SCMS_STRING_TO_FTEXT'
EXPORTING
text = lv_body
TABLES
ftext_tab = l_htmlext.
"Set your document to accept html body
document = cl_document_bcs=>create_document( i_type = 'HTM'
i_text = l_htmlext
i_subject = 'Just for test' ).
* add the spread sheet as attachment to document object
document->add_attachment(
i_attachment_type = lc_xls_type
i_attachment_subject = 'Test_spfli'
i_att_content_hex = binary_content_forecast ).
* send document object to send request
send_request->set_document( document ).
* --------------add recipient (e-mail address)--------------
* create recipient object
recipient = cl_cam_address_bcs=>create_internet_address( mailto ).
* add recipient object to send request
send_request->add_recipient( recipient ).
* --------------send document ------------------------------
send_request->set_send_immediately( 'X' ).
sent_to_all = send_request->send( i_with_error_screen = 'X' ).
COMMIT WORK.
IF sent_to_all IS INITIAL.
MESSAGE i500(sbcoms) WITH mailto.
ELSE.
MESSAGE s022(so).
ENDIF.
* ---------------exception handling ------------------------
CATCH cx_bcs INTO bcs_exception.
MESSAGE i865(so) WITH bcs_exception->error_type.
ENDTRY.
ENDFORM. " FRM_SEND_EMAIL