CONSTANTS : c_high TYPE sodocchgi1-priority VALUE '1' .
DATA : i_content TYPE TABLE OF solisti1 ,
i_rec TYPE TABLE OF somlreci1 .
DATA : wa_docdata TYPE sodocchgi1 ,
wa_content TYPE solisti1 ,
wa_rec TYPE somlreci1 .
* Fill document data
wa_docdata-obj_name = 'MESSAGE' .
wa_docdata-obj_descr = 'test' .
wa_docdata-obj_langu = 'E' .
wa_docdata-sensitivty = 'F' .
wa_docdata-obj_prio = c_high .
wa_docdata-no_change = 'X' .
wa_docdata-priority = c_high .
* Fill object content
CLEAR wa_content .
wa_content-line = 'test mail' .
APPEND wa_content TO i_content .
* Fill receivers
CLEAR wa_rec .
wa_rec-receiver = sy-uname .
wa_rec-rec_type = 'B'.
APPEND wa_rec TO i_rec .
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
EXPORTING
document_data = wa_docdata
TABLES
object_content = i_content
receivers = i_rec
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.
