发送内容 的数据获取：
- 正文部分使用cl_document_bcs=>create_document静态方法实现
- 传入参数为html内表结构
CLEAR lo_document .lo_document = cl_document_bcs=>create_document(i_type = 'HTM'i_text = lt_htmli_length = conlengthsi_subject = lv_subject ).- 添加附件使用lo_document->add_attachment
- 传入参数为二进制数据（Excel的制作使用ZXLSX_WORKBENCH方式，百度搜ZXLSX_WORKBENCH就可以了）
CALL METHOD lo_document->add_attachmentEXPORTINGi_attachment_type = 'BIN'i_attachment_subject = lv_att_subjecti_attachment_size = lv_att_sizei_att_content_hex = lt_doc_table.示例代码：
DATA: lv_subject TYPE so_obj_des,lo_send_request TYPE REF TO cl_bcs,lo_document TYPE REF TO cl_document_bcs,conlengths TYPE so_obj_len,bcs_exception TYPE REF TO cx_bcs,bcs_message TYPE string,lt_html TYPE STANDARD TABLE OF w3html, "存放HTML5代码的内表lw_html TYPE w3html, "工作区lo_sender TYPE REF TO cl_sapuser_bcs, "发送人lv_to TYPE adr6-smtp_addr, "接收人lo_bcs_to TYPE REF TO if_recipient_bcs,lv_cc TYPE adr6-smtp_addr, "抄送人lo_bcs_cc TYPE REF TO if_recipient_bcs,lv_rawdata_01 TYPE mime_data,lv_doc_size TYPE i, "文件大小lt_doc_table TYPE solix_tab, "文件内容lv_att_size TYPE so_obj_len, "附件长度lv_att_subject TYPE so_obj_des, "附件名称lv_result TYPE os_boolean, "发送结果lo_fail TYPE REF TO cx_bcs. "异常信息DEFINE %%add_html.lw_html-line = &1.APPEND lw_html TO lt_html.CLEAR lw_html.END-OF-DEFINITION.SELECT * INTO TABLE @DATA(lt_emp) FROM ztlbmm_emp_email.** 邮件主题lv_subject = '大仓多库位库存预警表'.
** 邮件正文%%add_html:'<html>','<head>','<meta charset="utf-8" />','<title></title>','<style>table {text-align: center;}</style>','</head>','<body>','<h3> 为避免单个SKU存放多库位交货时，产品不能按批次先进先出原则，导致存在呆滞风险,','烦请仓库重点关注对产品库位进行管控；单个SKU多库位存放的成品预警明细见附件：</h3>','<table border="1" width="550px" height="150px" cellspacing="0" align="center">','<thead><tr>','<th>装运点</th>','<th>数据获取时间</th>','<th>SKU总数</th>','<th>多库位SKU总数</th>','<th>多库位SKU占比</th>','<th>增长率</th>','</tr></thead>'.LOOP AT lt_email INTO lw_email. "存放表格数据%%add_html: '<tbody><tr>','<td>', lw_email-name1, '</td>','<td>', lw_email-zdate, '</td>','<td>', lw_email-skun1, '</td>','<td>', lw_email-skun2, '</td>','<td>', lw_email-zcent, '</td>','<td>', lw_email-zupsn, '</td>','</tr></tbody>'.CLEAR:lw_email.ENDLOOP.%%add_html: '</table>','</body>','</html>'."开源项目ZXLSX_WORKBENCH使用方式CALL FUNCTION 'ZXLWB_CALLFORM'EXPORTINGiv_formname = 'ZMMR05B_TEMP' "Excel 模板iv_context_ref = lt_excel[] "Excel 映射内表 会自动填充到模板iv_viewer_suppress = 'X'IMPORTINGev_document_rawdata = lv_rawdata_01 "把EXCEL 转换为String类型的字符串EXCEPTIONSOTHERS = 2."附件部分CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'EXPORTINGbuffer = lv_rawdata_01 "传入ZXLSX_WORKBENCH处理的Excel字符串IMPORTINGoutput_length = lv_doc_sizeTABLESbinary_tab = lt_doc_table. "传出二进制内容"附件长度lv_att_size = lv_doc_size."附件名称lv_att_subject = |{ sy-datum }_多库位预警报表.xlsx|.IF sy-subrc NE 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.RETURN.ENDIF." 开始发送流程TRY."正文部分CLEAR lo_document .lo_document = cl_document_bcs=>create_document(i_type = 'HTM' "正文选择HTML格式显示i_text = lt_html "显示的内容i_length = conlengths i_subject = lv_subject ). "邮件主题"添加附件CALL METHOD lo_document->add_attachmentEXPORTINGi_attachment_type = 'BIN'i_attachment_subject = lv_att_subject "附件主题i_attachment_size = lv_att_size i_att_content_hex = lt_doc_table. "附件内容"创建传输请求对象CLEAR lo_send_request.lo_send_request = cl_bcs=>create_persistent( )."将文件对象放进传输请求对象CALL METHOD lo_send_request->set_document( lo_document )." 发件人：前提是这个邮箱地址能发邮件，并且不需要密码lo_sender = cl_sapuser_bcs=>create( sy-uname ).lo_send_request->set_sender( lo_sender )." 收件人lv_to = '这里填收件人邮箱'lo_bcs_to = cl_cam_address_bcs=>create_internet_address( lv_to ).CALL METHOD lo_send_request->add_recipientEXPORTINGi_recipient = lo_bcs_to." 抄送人lv_cc = '这里填抄送人邮箱'.lo_bcs_cc = cl_cam_address_bcs=>create_internet_address( lv_cc ).CALL METHOD lo_send_request->add_recipientEXPORTINGi_recipient = lo_bcs_cci_copy = 'X'."设置立即发送lo_send_request->set_send_immediately( 'X' )."与outbox关联lo_send_request->send_request->set_link_to_outbox( 'X' )."发送邮件CALL METHOD lo_send_request->send(EXPORTINGi_with_error_screen = 'X'RECEIVINGresult = lv_result ).CATCH cx_bcs INTO bcs_exception.bcs_message = bcs_exception->get_text( ).MESSAGE bcs_exception TYPE 'E'.EXIT.ENDTRY.IF lv_result EQ 'X'.COMMIT WORK AND WAIT. "提交事务ELSE.ROLLBACK WORK. "事务回滚ENDIF.IF sy-subrc NE 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.RETURN.ENDIF.
