SAP-ABAP程序发送邮件

1. 变量定义:

类: CL_BCS – Business Communication Service, 发送邮件主要用到的功能类, 包括创建发送请求, 添加发送内容,添加发送地址, 到最终的发送指令发出.

send_request type ref to cl_bcs.

类: CL_DOCUMENT_BCS, 用来放置发送的内容.

document type ref to cl_document_bcs.

类: CX_BCS, 不用多说,这是个异常类, 用于捕捉发送邮件过程中出现的异常.

fail type ref to cx_bcs.

接口: IF_RECIPIENT_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. 具体实例

[java] view plain copy print ?
  1. *&---------------------------------------------------------------------*  
  2. REPORT  ZBOBO_003.  
  3. * 前提之变量定义  
  4.   DATA:  
  5.     send_request TYPE REF TO cl_bcs,  
  6.     document TYPE REF TO cl_document_bcs,  
  7.     fail TYPE REF TO cx_bcs,  
  8.     recipient TYPE REF TO if_recipient_bcs.  
  9.   DATA:  
  10.     ls TYPE STRING,  
  11.     mailto         TYPE ad_smtpadr,  
  12.     main_text      TYPE bcsy_text,  
  13. TITLE          TYPE so_obj_des.  
  14.   ls = '该邮件用于测试演示程序'.  
  15. APPEND ls TO main_text.  
  16. TITLE = '翱翔云天测试邮件'.  
  17.   mailto = '[email protected]'.  
  18.   TRY.  
  19. *   第一步: 创建发送请求  
  20.     send_request = cl_bcs=>create_persistent( ).  
  21. *   第二步: 创建整理发送内容  
  22.     document = cl_document_bcs=>create_document(  
  23.           i_type    = 'RAW'  
  24.           i_text    = main_text  
  25.           i_subject = TITLE ).  
  26. *   第三步: 添加邮件内容到发送请求  
  27.     send_request->set_document( document ).  
  28. *   第四步: 邮件地址转换  
  29.     recipient = cl_cam_address_bcs=>create_internet_address ( mailto ).  
  30. *   第五步: 添加邮件地址到发送请求  
  31.     send_request->add_recipient( recipient ).  
  32. *   第六步: 正式发送并提交作业  
  33.     send_request->send( i_with_error_screen = 'X' ).  
  34. COMMIT WORK AND WAIT.  
  35. CATCH cx_bcs INTO fail.  
  36. *    MESSAGE ixxx(xx) WITH fail->error_type.  
  37.   ENDTRY.  

你可能感兴趣的:(ABAP)