Presistace类和创建文档类放置在循环内部。 它正在创建3个带有1k条记录的XL工作表。 但是问题是每个xl工作表触发邮件3次，但是我们需要所有3张工作单邮件..帮助我吗？ 表格email_attachment。 数据：lo_send_request类型参考cl_bcs， lv_date（10）， lv_text TYPE char255，"文字 lv_subject TYPE so_obj_des， lo_document类型参考cl_document_bcs， lv_binary_content TYPE solix_tab， lv_size TYPE so_obj_len， lv_string TYPE字符串， lt_main_text TYPE bcsy_text， lo_recipient类型参考if_recipient_bcs， lv_sent_to_all TYPE os_boolean， lo_bcs_exception类型参考cx_bcs， lv_email TYPE ad_smtpadr， lv_lines类型i。 *电子表格附件的分隔符 CLASS：cl_abap_char_utilities定义加载。 常量：gc_tab类型c值cl_bcs_convert => gc_tab， gc_crlf类型c值cl_bcs_convert => gc_crlf。 数据：gv_tab类型c值cl_abap_char_utilities => horizo​​ntal_tab， gv_newline TYPE c VALUE cl_abap_char_utilities =>换行符， gv_line_feed类型c值cl_abap_char_utilities => cr_lf。 数据：开始于gt_up_file OCCURS 0， 第255行，TYPE C， gt_up_file的结尾。 将sy-datum写入lv_date DD/MM/YYYY。 lv_lines =行（gt_up_file）。 如果lv_lines GT 65000。 讯息i000（zmm）与 '报告有65,000多行。 电子邮件不能为' "已发送-报告只能显示。" "为了通过电子邮件发送报告" "请更改您的选择标准。"。 出口。 万一。 循环至gt_up_file。 "你的内部表 CONCATENATE lv_string gt_up_file gc_crlf gv_newline INTO lv_string。 结局。 * ------------------------------------------------- ------------- *将文本字符串转换为UTF-16LE二进制数据，包括 *字节顺序标记。 Mircosoft Excel更喜欢这些设置 *所有这些都是由新类cl_bcs_convert完成的（请参阅注释1151257） 尝试。 cl_bcs_convert => string_to_solix（ 出口 iv_string = lv_string iv_codepage ='4103'"适用于MS Excel，请留空 iv_add_bom ='X'"用于其他文档类型 输入 et_solix = lv_binary_content ev_size = lv_size）。 捕捉cx_bcs。 讯息e445（如此）。 ENDTRY。 尝试。 * --------创建持久发送请求------------------------ lo_send_request = cl_bcs => create_persistent（）。 * --------创建并设置带有附件的文档--------------- *使用文本从内部表创建文档对象 lv_text = lv_date。 附加lv_text至lt_main_text。 在lt_main_text后面添加初始行。 lv_text ='报告标题...'。 附加lv_text至lt_main_text。 合并"客户价目表" sy-datum sy-uzeit INTO lv_subject以" _"分隔。 lo_document = cl_document_bcs => create_document（ i_type ='RAW' i_text = lt_main_text i_subject = lv_subject）。 *将电子表格作为附件添加到文档对象 lo_document-> add_attachment（ i_attachment_type ='XLS' i_attachment_subject = lv_subject i_attachment_size = lv_size i_att_content_hex = lv_binary_content）。 *添加文档对象以发送请求 lo_send_request-> set_document（lo_document）。 * ---------添加收件人（电子邮件地址）----------------------- *创建收件人对象 环回s_ercpt。 lv_email = s_ercpt-low。 lo_recipient = cl_cam_address_bcs => create_internet_address（ lv_email）。 *添加收件人对象以发送请求 lo_send_request-> add_recipient（lo_recipient）。 结局。 * ----------发送文件------------------------------------- - lv_sent_to_all = lo_send_request-> send（i_with_error_screen ='X'）。 提交工作。 如果lv_sent_to_all是INITIAL。 使用''的消息s500（sbcoms）。 其他。 讯息s022（so）。 万一。 * - - - - - - 异常处理 - - - - - - - - - - - - - - - - - 捕获cx_bcs INTO lo_bcs_exception。 使用lo_bcs_exception-> error_type的消息i865（so）。 ENDTRY。 ENDFORM。 " EMAIL_ATTACHMENT