ABAP发送邮件-带附件
相关T-CODE：SBWP SCOT SOST SO01~SO07
DATA GV_METHOD1 LIKE SY-UCOMM.
DATA GS_USER LIKE SOUDNAMEI1.
DATA GS_USER_DATA LIKE SOUDATAI1.
DATA GV_OWNER LIKE SOUD-USRNAM.
DATA GT_RECEIPIENTS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.
DATA GS_DOCUMENT LIKE SOOD4 .
DATA GS_HEADER2 LIKE SOOD2.
DATA GS_FOLMAM LIKE SOFM2.
DATA GT_OBJCNT LIKE SOLI OCCURS 0 WITH HEADER LINE.
DATA GT_OBJHEAD LIKE SOLI OCCURS 0 WITH HEADER LINE.
DATA GT_OBJPARA LIKE SELC OCCURS 0 WITH HEADER LINE.
DATA GT_OBJPARB LIKE SOOP1 OCCURS 0 WITH HEADER LINE.
DATA GT_ATTACHMENTS LIKE SOOD5 OCCURS 0 WITH HEADER LINE.
DATA GT_REFERENCES LIKE SOXRL OCCURS 0 WITH HEADER LINE.
DATA GS_RECIVER LIKE SOOS6 .
DATA GV_AUTHORITY LIKE SOFA-USRACC.
DATA GS_REF_DOCUMENT LIKE SOOD4.
DATA GS_NEW_PARENT LIKE SOODK.
DATA: BEGIN OF GT_FILES OCCURS 10 ,
TEXT(4096) TYPE C,
END OF GT_FILES.
DATA : GV_FOLD_NUMBER(12) TYPE C,
GV_FOLD_YR(2) TYPE C,
GV_FOLD_TYPE(3) TYPE C.
DATA: GS_FOLDER_ID LIKE SOODK,
GS_ORDER_ID LIKE SOODK.
DATA: GV_MAIL_TITLE(50).
DATA: GT_RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.
INITIALIZATION.
START-OF-SELECTION.
GV_MAIL_TITLE = '这是邮件标题'.
** 发件人信息 edit
PERFORM SO_USER_READ.
**邮件信息、属性定义
PERFORM DOCUMENT_REPOSITORY.
**附件生成
PERFORM CREAT_ATTACHMENTS.
**send mail
PERFORM SEND.
*&---------------------------------------------------------------------*
*& Form SO_USER_READ
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SO_USER_READ .
GS_USER-SAPNAME = SY-UNAME.
CALL FUNCTION 'SO_USER_READ_API1'
EXPORTING
USER = GS_USER
IMPORTING
USER_DATA = GS_USER_DATA
EXCEPTIONS
USER_NOT_EXIST = 1
PARAMETER_ERROR = 2
X_ERROR = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
GV_FOLD_TYPE = GS_USER_DATA-OUTBOXFOL+0(3).
GV_FOLD_YR = GS_USER_DATA-OUTBOXFOL+3(2).
GV_FOLD_NUMBER = GS_USER_DATA-OUTBOXFOL+5(12).
CLEAR: GT_FILES[], GT_FILES.
REFRESH : GT_OBJCNT,
GT_OBJHEAD,
GT_OBJPARA,
GT_OBJPARB,
GT_RECEIPIENTS,
GT_ATTACHMENTS,
GT_REFERENCES,
GT_FILES.
CLEAR : GS_DOCUMENT,
GS_HEADER2,
GT_OBJCNT,
GT_OBJHEAD,
GT_OBJPARA,
GT_OBJPARB,
GT_RECEIPIENTS,
GT_ATTACHMENTS,
GT_REFERENCES,
GT_FILES.
ENDFORM. " SO_USER_READ
*&---------------------------------------------------------------------*
*& Form DOCUMENT_REPOSITORY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DOCUMENT_REPOSITORY .
GV_METHOD1 = 'SAVE'.
GS_DOCUMENT-FOLTP = GV_FOLD_TYPE.
GS_DOCUMENT-FOLYR = GV_FOLD_YR.
GS_DOCUMENT-FOLNO = GV_FOLD_NUMBER.
GS_DOCUMENT-OBJTP = GS_USER_DATA-OBJECT_TYP.
*g_document-OBJYR = '27'.
*g_document-OBJNO = '000000002365'.
*g_document-OBJNAM = 'MESSAGE'.
GS_DOCUMENT-OBJDES = 'mail of sap by program'.
GS_DOCUMENT-FOLRG = 'O'.
*g_document-okcode = 'CHNG'.
GS_DOCUMENT-OBJLEN = '0'.
* g_document-file_ext = 'TXT'.
GS_HEADER2-OBJDES = GV_MAIL_TITLE.
* g_header-file_ext = 'TXT'.
CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'
EXPORTING
METHOD = GV_METHOD1
OFFICE_USER = SY-UNAME
REF_DOCUMENT = GS_REF_DOCUMENT
NEW_PARENT = GS_NEW_PARENT
IMPORTING
AUTHORITY = GV_AUTHORITY
TABLES
OBJCONT = GT_OBJCNT
OBJHEAD = GT_OBJHEAD
OBJPARA = GT_OBJPARA
OBJPARB = GT_OBJPARB
RECIPIENTS = GT_RECEIPIENTS
ATTACHMENTS = GT_ATTACHMENTS
REFERENCES = GT_REFERENCES
FILES = GT_FILES
CHANGING
DOCUMENT = GS_DOCUMENT
HEADER_DATA = GS_HEADER2.
ENDFORM. " DOCUMENT_REPOSITORY
*&---------------------------------------------------------------------*
*& Form CREAT_ATTACHMENTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CREAT_ATTACHMENTS .
* File from the pc to send..
GV_METHOD1 = 'ATTCREATEFROMPC'.
* GV_SAVE_PATHT = P_FILE.
GT_FILES-TEXT = 'C:\附件文件.xlsx'.
APPEND GT_FILES.
CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'
EXPORTING
METHOD = GV_METHOD1
OFFICE_USER = GV_OWNER
REF_DOCUMENT = GS_REF_DOCUMENT
NEW_PARENT = GS_NEW_PARENT
IMPORTING
AUTHORITY = GV_AUTHORITY
TABLES
OBJCONT = GT_OBJCNT
OBJHEAD = GT_OBJHEAD
OBJPARA = GT_OBJPARA
OBJPARB = GT_OBJPARB
RECIPIENTS = GT_RECEIPIENTS
ATTACHMENTS = GT_ATTACHMENTS
REFERENCES = GT_REFERENCES
FILES = GT_FILES
CHANGING
DOCUMENT = GS_DOCUMENT
HEADER_DATA = GS_HEADER2.
ENDFORM. " CREAT_ATTACHMENTS
*&---------------------------------------------------------------------*
*& Form SEND
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SEND .
CLEAR: GS_FOLDER_ID,GS_ORDER_ID.
GS_FOLDER_ID-OBJTP = GS_DOCUMENT-FOLTP .
GS_FOLDER_ID-OBJYR = GS_DOCUMENT-FOLYR.
GS_FOLDER_ID-OBJNO = GS_DOCUMENT-FOLNO.
GS_ORDER_ID-OBJTP = GS_DOCUMENT-OBJTP.
GS_ORDER_ID-OBJYR = GS_DOCUMENT-OBJYR.
GS_ORDER_ID-OBJNO = GS_DOCUMENT-OBJNO.
*收件人信息可以添加多个收件人-----------------------------------
REFRESH GT_RECEIVERS.
GT_RECEIVERS-RECESC = 'U'.
GT_RECEIVERS-SNDEX = 'X'.
GT_RECEIVERS-RECEXTNAM = 'name@163.com'.
APPEND GT_RECEIVERS.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
FOLDER_ID = GS_FOLDER_ID
OBJECT_ID = GS_ORDER_ID
TABLES
OBJCONT = GT_OBJCNT
OBJHEAD = GT_OBJHEAD
OBJPARA = GT_OBJPARA
OBJPARB = GT_OBJPARB
RECEIVERS = GT_RECEIVERS
PACKING_LIST = GT_ATTACHMENTS
EXCEPTIONS
ACTIVE_USER_NOT_EXIST = 1
COMMUNICATION_FAILURE = 2
COMPONENT_NOT_AVAILABLE = 3
FOLDER_NOT_EXIST = 4
FOLDER_NO_AUTHORIZATION = 5
FORWARDER_NOT_EXIST = 6
NOTE_NOT_EXIST = 7
OBJECT_NOT_EXIST = 8
OBJECT_NOT_SENT = 9
OBJECT_NO_AUTHORIZATION = 10
OBJECT_TYPE_NOT_EXIST = 11
OPERATION_NO_AUTHORIZATION = 12
OWNER_NOT_EXIST = 13
PARAMETER_ERROR = 14
SUBSTITUTE_NOT_ACTIVE = 15
SUBSTITUTE_NOT_DEFINED = 16
SYSTEM_FAILURE = 17
TOO_MUCH_RECEIVERS = 18
USER_NOT_EXIST = 19
X_ERROR = 20
OTHERS = 21.
COMMIT WORK.
******直接发送邮件的代码********
SUBMIT RSCONN01 WITH MODE ='INT'
WITH OUTPUT = 'X'
AND RETURN.
ENDFORM. " SEND