Envío de correo electrónico simple

********************************************************************************
*  INFORMACIÓN GENERAL - GENERAL INFORMATION
********************************************************************************
*^ Autor - Author      : José Manrique Valderrama
*^ Objetivo - Objetive : Envío de correos
*^ Website             : abapejemplos.blogspot.com
********************************************************************************

REPORT zjm_demo_email.

DATA: gdt_text  TYPE isumi_mail_content,
      gdt_pckls TYPE sopcklsti1_t,
      gdt_email TYPE somlreci1_t.

DATA: gwa_docu TYPE sodocchgi1.

FIELD-SYMBOLS: <fs_pckls> TYPE sopcklsti1,
               <fs_email> TYPE somlreci1.

START-OF-SELECTION.
  APPEND 'Cuerpo del e-mail' TO gdt_text.

  gwa_docu-obj_name  = 'EMAIL'.
  gwa_docu-obj_descr = 'Asunto del e-mail'.

  APPEND INITIAL LINE TO gdt_email ASSIGNING <fs_email>.
  <fs_email>-receiver = 'joseman85@gmail.com'.
  <fs_email>-rec_type = 'U'.

  APPEND INITIAL LINE TO gdt_pckls ASSIGNING <fs_pckls>.
  <fs_pckls>-doc_size = lines( gdt_text ) * 255.
  <fs_pckls>-body_start = 1.
  <fs_pckls>-body_num = lines( gdt_text ).
  <fs_pckls>-doc_type = 'TXT'.
  <fs_pckls>-obj_name = 'Cualquier nombre'.
  <fs_pckls>-obj_descr = 'Cualquier descripción'.

  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = gwa_docu
      commit_work                = abap_true
    TABLES
      packing_list               = gdt_pckls
      contents_txt               = gdt_text
      receivers                  = gdt_email
    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 EQ 0.
    "Correo enviado
  ELSE.
    "Correo no enviado
  ENDIF.

Resultado: