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