SAP 发送邮件

REPORT ZEMAIL_TEST .

data: OBJBIN like SOLISTI1 occurs 10 with header line,
DOCDATA like SODOCCHGI1,
OBJTXT like SOLISTI1 occurs 10 with header line,
OBJPACK like SOPCKLSTI1 occurs 1 with header line,
RECLIST like SOMLRECI1 occurs 1 with header line,
OBJHEAD like SOLISTI1 occurs 1 with header line.

data: TAB_LINES type I.

*----------------------------------------------------------------------*

start-of-selection.
DOCDATA-OBJ_DESCR = '发到邮件自动OBJ_DESCR'.
DOCDATA-OBJ_NAME = 'OBJ_NAME'.
DOCDATA-OBJ_LANGU = SY-LANGU.

OBJTXT = '标题OBJTXT.'.
append OBJTXT.

OBJTXT = DOCDATA-OBJ_DESCR.
append OBJTXT.

OBJTXT = '测试.'.
append OBJTXT.

* Write Packing List (Main)
* 3 has been fixed because OBJTXT has fix three lines
read table OBJTXT index 3.

DOCDATA-DOC_SIZE = ( 3 - 1 ) * 255 + strlen( OBJTXT ).
clear OBJPACK-TRANSF_BIN.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = 3.
OBJPACK-DOC_TYPE = 'RAW'.
append OBJPACK.

*RECLIST-RECEIVER = 'houzhiyu@thtfpc.com'."如果是发到工作台就填登陆用户名,如果是发到email就添email地址
RECLIST-RECEIVER = 'tfhzy'.
translate RECLIST-RECEIVER to UPPER case.
RECLIST-REC_TYPE = 'B'."发到工作台
*RECLIST-REC_TYPE = 'U'."发到外部信箱
append RECLIST.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOCDATA
* PUT_IN_OUTBOX = ' '
COMMIT_WORK = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
TABLES
PACKING_LIST = OBJPACK
* OBJECT_HEADER = OBJHEAD
* CONTENTS_BIN =
CONTENTS_TXT = objtxt
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
RECEIVERS = RECLIST
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.


本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/saphome/archive/2007/11/08/1873895.aspx