在SAP中我们可以配置STMP邮件功能，可以通过SOST来查看邮件状态，在编码中可用FM SO_DOCUMENT_SEND_API1 、SO_NEW_DOCUMENT_ATT_SEND_API1通过编码的方式来发送邮件以及邮件附件。在定义附件表时用solisti1，其长度为Char255，实际中我们导出的每一行记录都会超出这个长度。对XLS格试的附件我们可以用Excel的分隔标签来解决这个问题，对于文字乱码我们可以在附件加charset=utf-16le解决此类问题。同样，也适用于其他类似的乱码问题。
constants: c_tab type c value cl_abap_char_utilities=>horizontal_tab, c_cret type c value cl_abap_char_utilities=>cr_lf, c_mimetype type char64 value 'APPLICATION/MSEXCEL;charset=utf-16le'.
data: v_xattach type xstring,
it_binary_attach type solix_tab.
*---------------------------------------------------------------------------------
* Convert the internal data to XString
*----------------------------------------------------------------------------------
data: lc_descr_ref type ref to cl_abap_structdescr, lv_value type char128, lv_temp type string, lv_mid type string, lv_tabix type sy-tabix.
field-symbols: <fs_intable> type any. field-symbols: <intable_wa> type abap_compdescr.
loop at it_table.
lv_tabix = sy-tabix.
clear lv_temp. lc_descr_ref ?= cl_abap_typedescr=>describe_by_data( it_table ). loop at lc_descr_ref->components assigning <intable_wa>. assign component sy-tabix of structure in_table to <fs_table>. lv_value = <fs_table>. condense lv_value. if sy-tabix = 1. lv_temp = lv_value. continue. endif. concatenate lv_temp lv_value into lv_temp separated by c_tab. endloop.
concatenate lv_mid lv_temp c_cret into lv_mid.
endloop.
* Convert string to xstring type* 'APPLICATION/MSEXCEL;charset=utf-16le' call function 'SCMS_STRING_TO_XSTRING' exporting text = lv_mid mimetype = c_mimetype importing buffer = v_xattach exceptions failed = 1 others = 2.
* Add the file header for utf-16le. . if sy-subrc = 0. concatenate cl_abap_char_utilities=>byte_order_mark_little v_xattach into v_xattach in byte mode. endif.
call function 'SCMS_XSTRING_TO_BINARY' exporting buffer = v_xattach tables binary_tab = it_binary_attach.
*---------------------------------------------------------------------------------
*Send Email
*----------------------------------------------------------------------------------
data: lv_title type so_obj_des, " Email Title lv_email type adsmtp-smtp_addr, " Receiver lv_attitle type char50. " Attachment Title
data: send_request type ref to cl_bcs, document type ref to cl_document_bcs, conlengths type so_obj_len, html type table of w3html, sender_id type ref to if_sender_bcs, recipient type ref to if_recipient_bcs, cc_recipient type ref to if_recipient_bcs, sent_to_all type os_boolean, bcs_exception type ref to cx_bcs, bcs_message type string.
clear: lv_email, lv_title, html. " Email Body Content with html format
try.* request email function clear send_request. send_request = cl_bcs=>create_persistent( ).
* Create the content of email clear document . document = cl_document_bcs=>create_document( i_type = 'HTM' i_text = html i_length = conlengths i_subject = lv_title ).
* Add Attachment call method document->add_attachment exporting i_attachment_type = 'XLS' i_attachment_subject = lv_attitle i_att_content_hex = it_binary_attach.
* Add document to send request call method send_request->set_document( document ). clear recipient.
recipient = cl_cam_address_bcs=>create_internet_address( lv_email ).* Add recipient with its respective attributes to send request call method send_request->add_recipient exporting i_recipient = recipient i_express = 'X'.
* E-mail call method send_request->set_status_attributes exporting i_requested_status = 'E' i_status_mail = 'E'. call method send_request->set_send_immediately( 'X' ).
* Send document call method send_request->send( exporting i_with_error_screen = 'X' receiving result = sent_to_all ). if sent_to_all = 'X' and sy-batch <> 'X'. message 'Send Successfully' type 'I'. endif.
commit work.
catch cx_bcs into bcs_exception. bcs_message = bcs_exception->get_text( ). if sy-batch <> 'X'. message bcs_exception type 'E'. else. write: bcs_message. endif. exit. endtry.
