1. 变量定义:
类:
send_request type ref to cl_bcs.
类:
document type ref to cl_document_bcs.
类:
fail type ref to cx_bcs.
接口:
recipient type ref to if_recipient_bcs.
2.?? 编程步骤:
2.1. 创建发送请求:
send_request = cl_bcs=>create_persistent( ).
2.2. 创建整理发送内容
document = cl_document_bcs=>create_document(
i_type?????? = ‘RAW’
i_text?????? = 邮件内容
i_subject = 邮件抬头 ).
document->add_attachment: 这个可以添加些附件
2.3. 添加邮件内容到发送请求
send_request->set_document( document ).
2.4. 邮件地址转换
recipient = cl_cam_address_bcs=>create_internet_address( 邮件地址 )
2.5. 添加邮件地址到发送请求
send_request->add_recipient( recipient )
2.6. 正式发送并且提交作业
send_request->send( i_with_error_screen = ‘X’ )
commit work and wait.
3. 具体实例
- *&---------------------------------------------------------------------*
- REPORT ZBOBO_003.
- * 前提之变量定义
- DATA:
- send_request TYPE REF TO cl_bcs,
- document TYPE REF TO cl_document_bcs,
- fail TYPE REF TO cx_bcs,
- recipient TYPE REF TO if_recipient_bcs.
- DATA:
- ls TYPE STRING,
- mailto TYPE ad_smtpadr,
- main_text TYPE bcsy_text,
- TITLE TYPE so_obj_des.
- ls = '该邮件用于测试演示程序'.
- APPEND ls TO main_text.
- TITLE = '翱翔云天测试邮件'.
- mailto = 'CHUNBO.XU@ALCATEL-SBELL.COM.CN'.
- TRY.
- * 第一步: 创建发送请求
- send_request = cl_bcs=>create_persistent( ).
- * 第二步: 创建整理发送内容
- document = cl_document_bcs=>create_document(
- i_type = 'RAW'
- i_text = main_text
- i_subject = TITLE ).
- * 第三步: 添加邮件内容到发送请求
- send_request->set_document( document ).
- * 第四步: 邮件地址转换
- recipient = cl_cam_address_bcs=>create_internet_address ( mailto ).
- * 第五步: 添加邮件地址到发送请求
- send_request->add_recipient( recipient ).
- * 第六步: 正式发送并提交作业
- send_request->send( i_with_error_screen = 'X' ).
- COMMIT WORK AND WAIT.
- CATCH cx_bcs INTO fail.
- * MESSAGE ixxx(xx) WITH fail->error_type.
- ENDTRY.