翱翔云天教你写ABAP程序发送邮件 .

原文链接地址: 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. 效果查看:

image

1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。、可私 6信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 、可私信6博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 、可私信6博主看论文后选择购买源代码。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值