abap 邮件服务器设置,ABAP 发送邮件的两种方式

CONSTANTS:

GC_TABTYPE C VALUE CL_BCS_CONVERT=>GC_TAB, "CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB

GC_CRLF TYPE C VALUE CL_BCS_CONVERT=>GC_CRLF. "CL_ABAP_CHAR_UTILITIES=>CR_LF

DATA: I_PACKING_LIST LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,

I_RECEIVERSLIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE, "receivers

I_CONTENTS_TXT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE, "ASCII contents of object and attachments

I_CONTENTS_HEX LIKE SOLIX OCCURS 0 WITH HEADER LINE, "Binary contents of object and attachments

I_CONTENTS_BIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,

I_OBJECT_HEADERLIKE SOLISTI1 OCCURS 0 WITH HEADER LINE, "attachments name

W_DOC_DATA LIKESODOCCHGI1.DATA: C_MIMETYPE TYPE CHAR64 VALUE 'APPLICATION/MSEXCEL;charset=utf-16le'.DATA: V_XATTACH TYPEXSTRING.DATA: LV_STRING TYPE STRING.DATA: TAB_LINES LIKE SY-TABIX,

W_SENT_ALL(1) TYPEC,

W_ERRORTYPE SY-SUBRC.DATA: I_SPFLI LIKE STANDARD TABLE OF SPFLI WITH HEADER LINE.***********************************************************************

START-OF-SELECTION.PERFORMGET_SPFLI_DATA.***define mail main context****

PERFORMDEFINE_MAIL_HEADER.***dfine attachment*******************

PERFORMDEFINE_MAIL_ATTACHMENT.***get mail receiver*****************

PERFORMGET_RECEIVERS.*Send email message, although is not sent from SAP until mail send

*program has been executed(rsconn01)PERFORMSEND_EMAIL_MESSAGE.*&