翱翔云天教你写ABAP程序发送邮件 .
来源:互联网 发布:心动网络 知乎 编辑:程序博客网 时间:2024/06/02 15:13
原文链接地址: http://www.abaptech.com/2011/02/
这个星期终于不会很忙, 写点东西, 给自己找些事情做, 不然无聊会影响我的戒烟心理.
本文详细讲解如何写程序发送邮件.
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. 具体实例
*&---------------------------------------------------------------------**& Report ZBOBO_003*&*&---------------------------------------------------------------------**& 用于如何写abap程序发送邮件的DEMO程序*& 翱翔云天原创*& 翱翔云天六步法发送邮件*&---------------------------------------------------------------------*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.
4. 效果查看:
- 翱翔云天教你写ABAP程序发送邮件
- 翱翔云天教你写ABAP程序发送邮件 .
- abap写发送邮件程序
- ABAP程序发送邮件
- 用ABAP程序发送邮件
- 另一个ABAP邮件发送程序
- SAP-ABAP程序发送邮件
- SAP-ABAP程序发送邮件
- SAP-ABAP程序发送邮件
- ABAP程序发送带附件的邮件
- ABAP程序发送带附件的邮件
- ABAP程序发送带附件的邮件
- 中秋节的礼物,教你写程序发送带附件的邮件
- SAP ABAP发送邮件
- 用C写的邮件发送程序
- 用汇编语言写ESMTP邮件发送程序
- 想写一个发送邮件的程序,
- ABAP 发邮件程序
- C++ 模板函数和非模板函数的重载
- do{...} while(0);
- 简单的循环语句
- 嵌入式、单片机学习书籍推荐
- 【Cocos2d-x游戏引擎开发笔记(21)】CCHttpRequest联网
- 翱翔云天教你写ABAP程序发送邮件 .
- 对象按照某属性升序,降序
- 国嵌嵌入式自学给力视频,自学完全有可能
- SIP与http的联系
- IE6下载文件名过长导致乱码问题的解决方案
- 树莓派制作移动物体检测服务器
- 多屏编程时经常会用到的快捷键..
- 纯真IP数据库格式详解
- 数据结构中各种排序算法比较