1. 變量定義:

類:?CL_BCS?– Business Communication Service, 發(fā)送郵件主要用到的功能類, 包括創(chuàng)建發(fā)送請(qǐng)求, 添加發(fā)送內(nèi)容,添加發(fā)送地址, 到最終的發(fā)送指令發(fā)出.

send_request type ref to cl_bcs.

類:?CL_DOCUMENT_BCS,?用來放置發(fā)送的內(nèi)容.

document type ref to cl_document_bcs.

類:?CX_BCS,?不用多說,這是個(gè)異常類, 用于捕捉發(fā)送郵件過程中出現(xiàn)的異常.

fail type ref to cx_bcs.

接口:?IF_RECIPIENT_BCS, 用來做郵件地址的存儲(chǔ)轉(zhuǎn)換.

recipient type ref to if_recipient_bcs.

2.?? 編程步驟:

2.1. 創(chuàng)建發(fā)送請(qǐng)求:

send_request = cl_bcs=>create_persistent( ).

2.2. 創(chuàng)建整理發(fā)送內(nèi)容

document = cl_document_bcs=>create_document(
i_type?????? = ‘RAW’
i_text?????? = 郵件內(nèi)容
i_subject = 郵件抬頭 ).

document->add_attachment: 這個(gè)可以添加些附件

2.3. 添加郵件內(nèi)容到發(fā)送請(qǐng)求

send_request->set_document( document ).

2.4. 郵件地址轉(zhuǎn)換

recipient = cl_cam_address_bcs=>create_internet_address( 郵件地址 )

2.5. 添加郵件地址到發(fā)送請(qǐng)求

send_request->add_recipient( recipient )

2.6. 正式發(fā)送并且提交作業(yè)

send_request->send( i_with_error_screen = ‘X’ )

commit work and wait.

3. 具體實(shí)例

[java] view plaincopy

*&---------------------------------------------------------------------*??

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?=?'該郵件用于測(cè)試演示程序'.??

APPEND?ls?TO?main_text.??

TITLE?=?'翱翔云天測(cè)試郵件'.??

??mailto?=?'CHUNBO.XU@ALCATEL-SBELL.COM.CN'.??

??TRY.??

*???第一步:?創(chuàng)建發(fā)送請(qǐng)求??

????send_request?=?cl_bcs=>create_persistent(?).??

*???第二步:?創(chuàng)建整理發(fā)送內(nèi)容??

????document?=?cl_document_bcs=>create_document(??

??????????i_type????=?'RAW'??

??????????i_text????=?main_text??

??????????i_subject?=?TITLE?).??

*???第三步:?添加郵件內(nèi)容到發(fā)送請(qǐng)求??

????send_request->set_document(?document?).??

*???第四步:?郵件地址轉(zhuǎn)換??

????recipient?=?cl_cam_address_bcs=>create_internet_address?(?mailto?).??

*???第五步:?添加郵件地址到發(fā)送請(qǐng)求??

????send_request->add_recipient(?recipient?).??

*???第六步:?正式發(fā)送并提交作業(yè)??

????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.?

總結(jié)

以上是生活随笔為你收集整理的SAP-ABAP程序发送邮件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。