简单SAP ABAP发送邮件示例代码
2013-01-08 15:15
756 查看
REPORT Z_WUWEI_0001. *类: CL_BCS 发送邮件主要用到的功能类, 包括创建发送请求, 添加发送内容,添加发送地址, 到最终的发送指令发出. *类: CL_DOCUMENT_BCS, 用来放置发送的内容. *类: CX_BCS, 不用多说,这是个异常类, 用于捕捉发送邮件过程中出现的异常. *接口: IF_RECIPIENT_BCS, 用来做邮件地址的存储转换. 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 = 'WUWEI邮件测试'. MAILTO = 'WUWEI@COMPANY.COM'. 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. ENDTRY.
相关文章推荐
- Python实现socket信息发送和监听的简单代码示例
- java发送邮件 示例代码
- iOS:实现邮件和短信发送的简单示例
- Javax Mail发送邮件完整代码示例
- javamail发送邮件简单示例
- 最简单的邮件发送代码FreePoster
- .net发送邮件代码示例
- 发送邮件常见出错代码及简单解决方法
- node实现定时发送邮件的示例代码
- [VB.NET源码]发送邮件的示例代码
- Spring代码实例系列-10:通过Spring Mail发送简单邮件、附件和HTML邮件
- Java HtmlEmail 邮件发送的简单实现代码
- Java的Spring框架中实现发送邮件功能的核心代码示例
- cURL开源库中的发送邮件示例代码(smtp-multi.c)
- 使用spring mail发送html邮件的示例代码
- JAVA代码发送邮件示例和解释(二)
- SAP 如何用ABAP实现自动发送外部邮件
- Java Mail发送简单邮件,完整代码
- Android 后台发送邮件示例 (收集应用异常信息+Demo代码)
- 简单的发送邮件代码