嗨

友好地使用了波纹管程序发送大表电子邮件

 数据：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。

 选择屏幕：b2块的开头为FRAME TITLE文本-010。
 选择选项：s_ercpt for catsxt_sf-电子邮件无间隔。
 b2块的选择屏幕结束。
 *内部表：移动内部表

 数据：开始于gt_up_file OCCURS 0，
           线（200）
        gt_up_file的结尾。

 *电子表格附件的分隔符

   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。


   将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。

关于

Nawa