SAP中发送邮件

 DATA: objbin LIKE solisti1 OCCURS  WITH HEADER LINE,
       docdata LIKE sodocchgi1,
       objtxt LIKE solisti1 OCCURS  WITH HEADER LINE,
       objpack LIKE sopcklsti1 OCCURS  WITH HEADER LINE,
       reclist LIKE somlreci1 OCCURS  WITH HEADER LINE,
       objhead LIKE solisti1 OCCURS  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 .

   docdata-doc_size = (  -  ) *  + strlen( objtxt ).
   CLEAR objpack-transf_bin.
   objpack-head_start = .
   objpack-head_num = .
   objpack-body_start = .
   objpack-body_num = .
   objpack-doc_type = 'RAW'.
   APPEND objpack.

   reclist-receiver = '***'."如果是发到工作台就填登陆用户名,如果是发到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               =
      document_not_sent                =
      document_type_not_exist          =
      operation_no_authorization       =
      parameter_error                  =
      x_error                          =
      enqueue_error                    =
      OTHERS                           =
             .
   IF sy-subrc <> .
 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.

不知为何，一直返回异常报错，sy-subrc = 6,猜测是权限的问题。