ABAP - RFC Para OUTLOOK

DATA: ls_object_header TYPE sodocchgi1,

      lt_object_content TYPE STANDARD TABLE OF solisti1.

ls_object_header-obj_name = 'Archivo PDF'.

ls_object_header-obj_descr = 'Archivo PDF adjunto al correo'.

* Agrega el contenido del archivo PDF al objeto

CALL FUNCTION 'GUI_UPLOAD'

  EXPORTING

    filename                = 'C:\ruta\al\archivo.pdf'

  IMPORTING

    filelength              = lt_object_content[1]-LENGTH

  TABLES

    data_tab                = lt_object_content.

DATA: ls_recipient TYPE somlrec90,

      ls_document  TYPE solisti1,

      lt_recipient TYPE STANDARD TABLE OF somlrec90.

* Agrega los destinatarios

ls_recipient-receiver = 'destinatario@correo.com'.

APPEND ls_recipient TO lt_recipient.

* Agrega el objeto de documento al documento de envío

ls_document = lt_object_content[1].

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

  EXPORTING

    document_data              = ls_object_header

    put_in_outbox              = 'X'

  TABLES

    packing_list               = lt_object_content

    object_header              = lt_recipient

  EXCEPTIONS

    too_many_recipients        = 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.