如何用ABAP实现自动发送外部邮件

首先激活sap邮件服务，sicf中激活；

专注于为中小企业提供网站设计、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业汾西免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

在scot中配置邮件服务器地址以及端口等信息；

通过abap代码实现邮件发送

邮件怎么发?

发邮件的方法如下：

工具：惠普暗影精灵8 Pro笔记本电脑、windows 11操作系统、PC版QQ V9.7.1.28940。

1、登陆你的qq账号，点击qq面板上面邮件的图标，进入qq邮箱。

2、进入qq邮箱后，点击左侧的写信按钮。

3、弹出写邮件内容的窗口，第一行写入对方的邮箱，下面是邮件的标题和内容。

4、写好邮件后，检查没有错误，点击下面的发送。

5、邮件就发送成功了。

发邮件怎么发

登陆邮箱号就可以发。

若用Windows10系统的华为、华硕等品牌的电脑发送QQ邮件、网易邮件等，要先打开浏览器，输入QQ邮箱或网易邮箱点击搜索，进入官网后选择登录，登录成功后点击写信，然后根据页面提示选择收件人、填写主题以及正文选择发送文件即可。

对于其他邮箱来说，发布邮件的方式都是比较相似的，主要是登录邮箱，然后选择发邮件就可以了，当然了，最重要的是知道对方的邮箱地址。

很多邮箱是需要使用手机号码进行注册的，而对于QQ邮箱来说，直接使用QQ号登录就可以了，而且邮箱账号也是与QQ号相关联的。

sap 收货后系统怎么设置自动发送邮件给申请人

我在项目上做过类似的。

首先要做的是物料主数据中 找个字段记录一下物料申请人 邮箱

以MIGO为例

首先需要 BASIS做SAP 相应邮件的配置

用Badi：MB_MIGO_BADI增强 interface:POST_DOCUMENT

发邮件FM代码如下

FUNCTION Z02FI_SEND_EMAIL_ALL.

*"----------------------------------------------------------------------

*"*"Local Interface:

*"  IMPORTING

*"     REFERENCE(I_ADDR) TYPE  ADR6-SMTP_ADDR

*"     REFERENCE(I_TITLE) TYPE  SO_REC_EXT

*"  EXPORTING

*"     REFERENCE(E_STATUS) TYPE  STRING

*"     REFERENCE(E_OK) TYPE  FLAG

*"  TABLES

*"      T_BODY STRUCTURE  W3HTML

*"      T_CCADDR STRUCTURE  ZCCADDR OPTIONAL

*"----------------------------------------------------------------------

DATA: LV_TITLE          TYPE SO_OBJ_DES,

SEND_REQUEST   TYPE REF TO CL_BCS,

DOCUMENT         TYPE REF TO CL_DOCUMENT_BCS,

CONLENGTHS        TYPE SO_OBJ_LEN,

HTML                  TYPE STANDARD TABLE OF W3HTML,

WA_HTML           TYPE W3HTML,

SENDER_ID         TYPE REF TO IF_SENDER_BCS,

RECIPIENT           TYPE REF TO IF_RECIPIENT_BCS,

SENT_TO_ALL       TYPE OS_BOOLEAN,

BCS_EXCEPTION  TYPE REF TO CX_BCS,

BCS_MESSAGE   TYPE STRING.

DATA RECIPIENTCC LIKE RECIPIENT.

DATA L_ADDR LIKE I_ADDR.

LV_TITLE = I_TITLE.

WA_HTML-LINE  = 'html'.

APPEND WA_HTML TO HTML.

WA_HTML-LINE  = 'body'.

APPEND WA_HTML TO HTML.

LOOP AT T_BODY.

WA_HTML-LINE  = T_BODY-LINE.

APPEND WA_HTML TO HTML.

WA_HTML-LINE  = 'BR'.

APPEND WA_HTML TO HTML.

ENDLOOP.

WA_HTML-LINE  = 'BR'.

APPEND WA_HTML TO HTML.

WA_HTML-LINE  = '/body'.

APPEND WA_HTML TO HTML.

WA_HTML-LINE  = '/html'.

APPEND WA_HTML TO HTML.

TRY.

CLEAR SEND_REQUEST.

SEND_REQUEST = CL_BCS=CREATE_PERSISTENT( ).

CLEAR DOCUMENT .

DOCUMENT =  CL_DOCUMENT_BCS=CREATE_DOCUMENT(

I_TYPE =    'HTM'

I_TEXT =     HTML

I_LENGTH =  CONLENGTHS

I_SUBJECT = LV_TITLE ).

*   Add document to send request

CALL METHOD SEND_REQUEST-SET_DOCUMENT( DOCUMENT ).

*   Construct sender and receiver

CLEAR: SENDER_ID , RECIPIENT .

*    sender_id = cl_cam_address_bcs=create_internet_address( 'TESTDELOITTE@PETROCHINA-HFY.COM' ).

RECIPIENT = CL_CAM_ADDRESS_BCS=CREATE_INTERNET_ADDRESS( I_ADDR ).

*   Set sender

CALL METHOD SEND_REQUEST-SET_SENDER

EXPORTING

I_SENDER = SENDER_ID.

*   Add recipient with its respective attributes to send request

CALL METHOD SEND_REQUEST-ADD_RECIPIENT

EXPORTING

I_RECIPIENT = RECIPIENT

I_EXPRESS   = 'X'.

LOOP AT T_CCADDR WHERE CCADDR IS NOT INITIAL .

CLEAR RECIPIENTCC.

RECIPIENTCC = CL_CAM_ADDRESS_BCS=CREATE_INTERNET_ADDRESS( T_CCADDR-CCADDR ).

CALL METHOD SEND_REQUEST-ADD_RECIPIENT

EXPORTING

I_RECIPIENT = RECIPIENTCC

I_COPY      = 'X'

I_EXPRESS   = 'X'.

ENDLOOP.

*   Set E-mail sending options

CALL METHOD SEND_REQUEST-SET_STATUS_ATTRIBUTES

EXPORTING

I_REQUESTED_STATUS = 'E'

I_STATUS_MAIL      = 'E'.

CALL METHOD SEND_REQUEST-SET_SEND_IMMEDIATELY( 'X' ).

*   Send document

CALL METHOD SEND_REQUEST-SEND(

EXPORTING

I_WITH_ERROR_SCREEN = 'X'

RECEIVING

RESULT              = SENT_TO_ALL ).

IF SENT_TO_ALL = 'X'.

*        E_STATUS = 'Email is send out successful.'.

E_OK = 'X'.

ENDIF.

COMMIT WORK.

CATCH CX_BCS INTO BCS_EXCEPTION.

BCS_MESSAGE = BCS_EXCEPTION-GET_TEXT( ).

E_STATUS = BCS_MESSAGE.

EXIT.

ENDTRY.

ENDFUNCTION.

本文标题：sap系统怎么发邮件的简单介绍
本文地址：http://kswjz.com/article/ddopjgh.html