REPORT z_send_email_with_excel.
*&---------------------------------------------------------------------*
*& 选择屏幕定义
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
PARAMETERS: p_repid TYPE syrepid OBLIGATORY, " 报表程序名
p_varnt TYPE variant OBLIGATORY, " 变式名
p_email TYPE ad_smtpadr OBLIGATORY. " 收件邮箱
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE TEXT-002.
PARAMETERS: p_test AS CHECKBOX DEFAULT 'X'. " 测试模式
SELECTION-SCREEN END OF BLOCK blk2.
*&---------------------------------------------------------------------*
*& 数据类型定义
*&---------------------------------------------------------------------*
TYPES: BEGIN OF ty_config,
report_name TYPE syrepid,
variant_name TYPE variant,
email_to TYPE ad_smtpadr,
END OF ty_config.
*&---------------------------------------------------------------------*
*& 主程序逻辑
*&---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM main.
*&---------------------------------------------------------------------*
*& Form MAIN
*&---------------------------------------------------------------------*
FORM main.
DATA: ls_config TYPE ty_config.
" 填充配置结构
ls_config-report_name = p_repid.
ls_config-variant_name = p_varnt.
ls_config-email_to = p_email.
" 调用发送功能
PERFORM send_rpt_email USING ls_config-report_name
ls_config-variant_name
ls_config-email_to.
ENDFORM. " MAIN
*&---------------------------------------------------------------------*
*& Form SEND_RPT_EMAIL
*&---------------------------------------------------------------------*
FORM send_rpt_email USING iv_repid TYPE syrepid
iv_varnt TYPE variant
iv_email TYPE ad_smtpadr.
DATA: lt_email TYPE TABLE OF ad_smtpadr.
" 将邮箱地址转换为内表格式
APPEND iv_email TO lt_email.
" 显示开始信息
WRITE: / '开始处理报表:', iv_repid.
WRITE: / '使用变式: ', iv_varnt.
WRITE: / '收件人: ', iv_email.
WRITE: / '测试模式: ', p_test.
ULINE.
" 1. 获取报表数据
DATA: lr_data TYPE REF TO data.
PERFORM get_rpt_data USING iv_repid iv_varnt
CHANGING lr_data.
IF lr_data IS NOT BOUND.
WRITE: / '错误: 无法获取报表数据'.
RETURN.
ENDIF.
" 2. 转换为 Excel
DATA: lv_xstr TYPE xstring.
PERFORM create_xstring USING lr_data iv_repid
CHANGING lv_xstr.
IF lv_xstr IS INITIAL.
WRITE: / '错误: Excel 转换失败'.
RETURN.
ENDIF.
" 3. 发送邮件（测试模式下只模拟）
IF p_test = 'X'.
PERFORM simu_email USING lt_email lv_xstr iv_repid.
ELSE.
PERFORM send_email USING lt_email lv_xstr iv_repid.
ENDIF.
ENDFORM. " SEND_RPT_EMAIL
*&---------------------------------------------------------------------*
*& Form GET_RPT_DATA
*&---------------------------------------------------------------------*
FORM get_rpt_data USING iv_repid TYPE syrepid
iv_varnt TYPE variant
CHANGING cr_data TYPE REF TO data.
" 使用 CL_SALV_BS_RUNTIME_INFO 获取 ALV 数据
CL_SALV_BS_RUNTIME_INFO=>SET(
EXPORTING
display = abap_false
metadata = abap_false
data = abap_true
).
TRY.
" 提交报表到内存
SUBMIT (iv_repid) USING SELECTION-SET iv_varnt
AND RETURN.
" 获取数据引用
CL_SALV_BS_RUNTIME_INFO=>GET_DATA_REF( IMPORTING r_data = cr_data ).
WRITE: / '成功获取报表数据'.
CATCH cx_salv_bs_sc_runtime_info.
WRITE: / '错误: 报表不是 ALV 格式或执行失败'.
CLEAR cr_data.
ENDTRY.
CL_SALV_BS_RUNTIME_INFO=>CLEAR_ALL( ).
ENDFORM. " GET_RPT_DATA
*&---------------------------------------------------------------------*
*& Form CREATE_XSTRING
*&---------------------------------------------------------------------*
FORM create_xstring USING ir_data TYPE REF TO data
iv_repid TYPE syrepid
CHANGING cv_xstring TYPE xstring.
FIELD-SYMBOLS: <lt_table> TYPE STANDARD TABLE.
DATA: lt_fcat TYPE lvc_t_fcat.
" 分配数据到字段符号
ASSIGN ir_data->* TO <lt_table>.
" 检查表是否为空
IF lines( <lt_table> ) = 0.
WRITE: / '警告: 报表数据为空'.
RETURN.
ENDIF.
TRY.
" 创建 SALV 表
cl_salv_table=>factory(
IMPORTING
r_salv_table = DATA(lo_table)
CHANGING
t_table = <lt_table> ).
" 获取字段目录
lt_fcat = cl_salv_controller_metadata=>get_lvc_fieldcatalog(
r_columns = lo_table->get_columns( )
r_aggregations = lo_table->get_aggregations( ) ).
" 创建结果数据对象
DATA(lo_result) = cl_salv_ex_util=>factory_result_data_table(
r_data = ir_data
t_fieldcatalog = lt_fcat ).
" 转换为 XLSX
cl_salv_bs_tt_util=>if_salv_bs_tt_util~transform(
EXPORTING
xml_type = if_salv_bs_xml=>c_type_xlsx
xml_version = cl_salv_bs_a_xml_base=>get_version( )
r_result_data = lo_result
xml_flavour = if_salv_bs_c_tt=>c_tt_xml_flavour_export
gui_type = if_salv_bs_xml=>c_gui_type_gui
IMPORTING
xml = cv_xstring ).
WRITE: / '成功生成 Excel 文件, 大小:', xstrlen( cv_xstring ), 'bytes'.
CATCH cx_root INTO DATA(lx_error).
WRITE: / 'Excel 转换错误:', lx_error->get_text( ).
CLEAR cv_xstring.
ENDTRY.
ENDFORM. " CREATE_XSTRING
*&---------------------------------------------------------------------*
*& Form SIMU_EMAIL
*&---------------------------------------------------------------------*
FORM simu_email USING it_email TYPE table
iv_xstr TYPE xstring
iv_repid TYPE syrepid.
DATA: lv_email TYPE ad_smtpadr.
WRITE: / '=== 测试模式 - 邮件发送模拟 ==='.
WRITE: / '收件人列表:'.
LOOP AT it_email INTO lv_email.
WRITE: / ' -', lv_email.
ENDLOOP.
WRITE: / '邮件主题: 报表', iv_repid, '数据导出'.
WRITE: / '附件: 已生成 Excel 文件 (不实际发送)'.
WRITE: / '如需实际发送，请取消选择"测试模式"'.
ENDFORM. " SIMU_EMAIL
*&---------------------------------------------------------------------*
*& Form SEND_EMAIL
*&---------------------------------------------------------------------*
FORM send_email USING it_email TYPE table
iv_xstr TYPE xstring
iv_repid TYPE syrepid.
DATA: lv_email TYPE ad_smtpadr,
lv_attach_size TYPE so_obj_len.
TRY.
" 计算附件大小
lv_attach_size = xstrlen( iv_xstr ).
" 创建发送请求
DATA(lo_send_request) = cl_bcs=>create_persistent( ).
" 创建邮件正文
DATA(lt_body) = VALUE bcsy_text(
( line = 'Dear Sir/Madam,' )
( line = '' )
( line = '' )
( line = |这是报表 { iv_repid } 的数据导出文件，请查收。| )
( line = '' )
( line = |生成时间：{ sy-datum } { sy-uzeit }| )
( line = '' )
( line = 'Best regards,' )
( line = 'SAP System' )
).
" 设置文档对象
DATA: lv_subject TYPE so_obj_des.
CONCATENATE '报表' iv_repid '数据导出' INTO lv_subject SEPARATED BY space.
DATA(lo_document) = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = lt_body
i_subject = lv_subject ).
" 添加附件
DATA: lv_attach_sub TYPE sood-objdes.
CONCATENATE iv_repid '' sy-datum '' sy-uzeit INTO lv_attach_sub.
lv_attach_sub = lv_attach_sub && '.xlsx'.
lo_document->add_attachment(
i_attachment_type = 'BIN'
i_attachment_size = lv_attach_size
i_attachment_subject = lv_attach_sub
i_att_content_hex = cl_bcs_convert=>xstring_to_solix( iv_xstr ) ).
" 添加文档到发送请求
lo_send_request->set_document( lo_document ).
" 设置发件人（使用默认发件人）
DATA(lo_sender) = cl_sapuser_bcs=>create( sy-uname ).
lo_send_request->set_sender( lo_sender ).
" 设置收件人
LOOP AT it_email INTO lv_email.
DATA(lo_recipient) = cl_cam_address_bcs=>create_internet_address( lv_email ).
lo_send_request->add_recipient(
i_recipient = lo_recipient
i_express = abap_true ).
ENDLOOP.
" 发送邮件
DATA(lv_sent_to_all) = lo_send_request->send( ).
COMMIT WORK.
IF lv_sent_to_all = abap_true.
WRITE: / '成功: 邮件已发送!'.
" 立即发送出站邮件
WAIT UP TO 2 SECONDS.
SUBMIT rsconn01 WITH mode = 'INT' AND RETURN.
ELSE.
WRITE: / '警告: 邮件可能未发送给所有收件人'.
ENDIF.
CATCH cx_send_req_bcs INTO DATA(lx_req_bcs).
WRITE: / '发送请求错误:', lx_req_bcs->get_text( ).
CATCH cx_document_bcs INTO DATA(lx_doc_bcs).
WRITE: / '文档创建错误:', lx_doc_bcs->get_text( ).
CATCH cx_address_bcs INTO DATA(lx_add_bcs).
WRITE: / '地址错误:', lx_add_bcs->get_text( ).
CATCH cx_root INTO DATA(lx_error).
WRITE: / '邮件发送错误:', lx_error->get_text( ).
ENDTRY.
ENDFORM. " SEND_EMAIL
*&---------------------------------------------------------------------*
*& 初始化事件
*&---------------------------------------------------------------------*
INITIALIZATION.