Envio de mails desde Abap

REPORT zrepomail.

*-DATA DECLARATION------------------------------------------------------

* DATOS VARIOS DE CONFIGURACION
DATA: document_data LIKE sodocchgi1.

* CONTENIDO DEL MAIL
DATA: object_content LIKE solisti1 OCCURS 0 WITH HEADER LINE.

* DESTINATARIOS
DATA: receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE.


*-MAIN PROCESSING SECTION-----------------------------------------------

* SETEA DATOS DE CONFIGURACION
document_data-obj_descr = 'Prueba de mail'.

* SETEA LOS DESTINATARIOS
receivers-receiver = 'sidtbes@siderca.com'.
receivers-rec_type = 'U'.
APPEND receivers.
receivers-receiver = 'sidtcml@siderca.com'.
receivers-rec_type = 'U'.
APPEND receivers.
* Uno por cada destinatario del mail....

* SETEA EL CONTENIDO DEL MAIL
OBJECT_CONTENT-LINE = 'Cuerpo del mail'.
APPEND OBJECT_CONTENT.
OBJECT_CONTENT-LINE = 'Uno por cada linea del cuerpo del mail'.
APPEND OBJECT_CONTENT.

*--------------
* ENVIA EL MAIL
*--------------

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
EXPORTING
document_data = document_data
put_in_outbox = 'X'
TABLES
object_content = object_content
receivers = receivers
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.
ELSE.
SUBMIT rsconn01 WITH mode = 'INT' AND RETURN.
ENDIF.