SAP中发送邮件

 1 DATA: objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 2       docdata LIKE sodocchgi1,
 3       objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 4       objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
 5       reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE,
 6       objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.
 7 
 8 DATA: tab_lines TYPE i.
 9 
10 *----------------------------------------------------------------------*
11 
12 START-OF-SELECTION.
13   docdata-obj_descr = ‘发到邮件自动OBJ_DESCR‘.
14   docdata-obj_name = ‘OBJ_NAME‘.
15   docdata-obj_langu = sy-langu.
16 
17   objtxt = ‘标题OBJTXT.‘.
18   APPEND objtxt.
19 
20   objtxt = docdata-obj_descr.
21   APPEND objtxt.
22 
23   objtxt = ‘测试.‘.
24   APPEND objtxt.
25 
26 * Write Packing List (Main)
27 * 3 has been fixed because OBJTXT has fix three lines
28   READ TABLE objtxt INDEX 3.
29 
30   docdata-doc_size = ( 3 - 1 ) * 255 + strlen( objtxt ).
31   CLEAR objpack-transf_bin.
32   objpack-head_start = 1.
33   objpack-head_num = 0.
34   objpack-body_start = 1.
35   objpack-body_num = 3.
36   objpack-doc_type = ‘RAW‘.
37   APPEND objpack.
38 
39   reclist-receiver = ‘***‘."如果是发到工作台就填登陆用户名,如果是发到email就添email地址
40   reclist-receiver = ‘tfhzy‘.
41   TRANSLATE reclist-receiver TO UPPER CASE.
42   reclist-rec_type = ‘B‘."发到工作台
43 *RECLIST-REC_TYPE = ‘U‘."发到外部信箱
44   APPEND reclist.
45 
46   CALL FUNCTION ‘SO_NEW_DOCUMENT_ATT_SEND_API1‘
47     EXPORTING
48       document_data                    = docdata
49 *   PUT_IN_OUTBOX                    = ‘ ‘
50       commit_work                      = ‘X‘
51 * IMPORTING
52 *   SENT_TO_ALL                      =
53 *   NEW_OBJECT_ID                    =
54     TABLES
55       packing_list                     = objpack
56 *    OBJECT_HEADER                    = OBJHEAD
57 *   CONTENTS_BIN                     =
58       contents_txt                     = objtxt
59 *   CONTENTS_HEX                     =
60 *   OBJECT_PARA                      =
61 *   OBJECT_PARB                      =
62       receivers                        = reclist
63    EXCEPTIONS
64      too_many_receivers               = 1
65      document_not_sent                = 2
66      document_type_not_exist          = 3
67      operation_no_authorization       = 4
68      parameter_error                  = 5
69      x_error                          = 6
70      enqueue_error                    = 7
71      OTHERS                           = 8
72             .
73   IF sy-subrc <> 0.
74 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
75 *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
76   ENDIF.