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 = '[email protected]'."如果是发到工作台就填登陆用户名,如果是发到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