SAP 内部邮件发送
REPORT YTEST_EMAIL.
TABLES: USR02.
DATA: LT_PACK_LIST TYPE SWFTPCKLST WITH HEADER LINE,
LT_CONTENTS TYPE SWFTLISTI1 WITH HEADER LINE,
ST_CONTENTS TYPE SWFTLISTI1 WITH HEADER LINE,
LT_RECEIVERS TYPE SOMLRECI1_T WITH HEADER LINE,
IT_CONTENTS TYPE SWFTLISTI1 WITH HEADER LINE,
VALUE TYPE I VALUE 5,
DOC_DATA LIKE SODOCCHGI1 .
SELECT-OPTIONS:
S_UNAME FOR USR02-BNAME NO INTERVALS OBLIGATORY.
DO VALUE TIMES.
CONCATENATE
`<TR> <td>` '45000000032'
`</td><td>` '2020-04-28'
`</td><td>` 'Willie.Yuan'
`</td></tr>`
INTO ST_CONTENTS .
APPEND ST_CONTENTS.
ENDDO.
APPEND `<HTML> <font face="courier new"> <BODY> Dear,` TO LT_CONTENTS.
APPEND `<blockquote><font face="courier new">The following PO you created has not been emailed to the supplier：` TO LT_CONTENTS.
APPEND `<meta http-equiv=Content-Type content` TO LT_CONTENTS.
APPEND `="text/html; charset=utf-8">` TO LT_CONTENTS.
APPEND `<p><TABLE border=1 cellpadding=2 ` TO LT_CONTENTS.
APPEND `style='border-collapse:collapse;font-size:10.5pt'>` TO
LT_CONTENTS.
APPEND `<TR style= 'background:#5dcbfd'> ` TO LT_CONTENTS.
APPEND `<Th>采购订单</Th>` TO LT_CONTENTS.
APPEND `<Th>创建日期</Th>` TO LT_CONTENTS.
APPEND `<Th>创建人</Th>` TO LT_CONTENTS.
APPEND `</TR>` TO LT_CONTENTS.
APPEND LINES OF ST_CONTENTS TO LT_CONTENTS.
APPEND '</TABLE></p>' TO LT_CONTENTS.
APPEND 'Pls kindly check.' TO LT_CONTENTS.
APPEND 'Thank you!</blockquote>' TO LT_CONTENTS.
APPEND INITIAL LINE TO LT_CONTENTS.
APPEND '</BODY> </HTML>' TO LT_CONTENTS.
DOC_DATA-OBJ_LANGU = SY-LANGU.
DOC_DATA-OBJ_DESCR = '“邮件未发送”提醒'.
LT_PACK_LIST-TRANSF_BIN = SPACE.
LT_PACK_LIST-HEAD_START = 1.
LT_PACK_LIST-HEAD_NUM = 0.
LT_PACK_LIST-BODY_START = 1.
DESCRIBE TABLE LT_CONTENTS LINES LT_PACK_LIST-BODY_NUM.
LT_PACK_LIST-DOC_TYPE = 'HTML'.
APPEND LT_PACK_LIST.
LOOP AT S_UNAME.
LT_RECEIVERS-RECEIVER = S_UNAME-LOW.
LT_RECEIVERS-REC_TYPE = 'B'.
LT_RECEIVERS-COM_TYPE = 'INT'.
LT_RECEIVERS-NOTIF_DEL = 'X'.
LT_RECEIVERS-NOTIF_NDEL = 'X'.
LT_RECEIVERS-EXPRESS = 'X'.
APPEND LT_RECEIVERS.
ENDLOOP.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_DATA
PUT_IN_OUTBOX = 'X'
COMMIT_WORK = 'X'
TABLES
PACKING_LIST = LT_PACK_LIST
CONTENTS_TXT = LT_CONTENTS
RECEIVERS = LT_RECEIVERS
EXCEPTIONS
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
DOCUMENT_TYPE_NOT_EXIST = 3
OPERATION_NO_AUTHORIZATION = 4
PARAMETER_ERROR = 5
X_ERROR = 6
ENQUEUE_ERROR = 7
OTHERS = 8.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
登录个人业务工作台可以查看内部邮件格式：