Skip to Content
0
May 29, 2018 at 09:08 AM

message ID 672 and 816 errors in SOST while sending mail.

404 Views

*&---------------------------------------------------------------------*

*& Report  ZSENDEMAIL

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*



REPORT  ZSENDEMAIL.

data : maildata type SODOCCHGI1.
data : mailtxt type table of SOLISTI1 with header line.
data : mailrec type table of SOMLRECI1 with header line.


start-of-selection.

PARAMETERS : mailcont type SOLISTI1 .
clear : maildata,mailtxt,mailrec.
refresh:mailtxt,mailrec.

maildata-obj_name = 'Test'.
maildata-obj_descr = 'Test'.
maildata-obj_langu = sy-langu.
mailtxt-line = mailcont.


append mailtxt.

mailrec-receiver = 'manasa.rudroju@gmail.com'.
mailrec-rec_type = 'U'.

append mailrec.



CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'



  EXPORTING

    DOCUMENT_DATA                    = MAILDATA

   DOCUMENT_TYPE                    = 'RAW'

*   PUT_IN_OUTBOX                    = ' '

   COMMIT_WORK                      = 'X'

* IMPORTING

*   SENT_TO_ALL                      =

*   NEW_OBJECT_ID                    =

  TABLES

   OBJECT_HEADER                    = MAILTXT

   OBJECT_CONTENT                   = MAILTXT

*   CONTENTS_HEX                     =

*   OBJECT_PARA                      =

*   OBJECT_PARB                      =

    RECEIVERS                        = MAILREC

* 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.

write :/ 'sucess'.

ENDIF.