Envío de correos OO

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

DATA: gdt_text TYPE soli_tab.

DATA: go_bcs      TYPE REF TO cl_bcs,
      go_document TYPE REF TO cl_document_bcs,
      go_address  TYPE REF TO cl_cam_address_bcs.

DATA: gs_subject TYPE so_obj_des,
      gs_result  TYPE os_boolean.

PARAMETERS: p_email TYPE ad_smtpadr.

START-OF-SELECTION.

  TRY.
      go_bcs = cl_bcs=>create_persistent( ).
    CATCH cx_send_req_bcs.
      "Error al crear objeto de correo
      RETURN.
  ENDTRY.

  APPEND 'Ese es el cuerpo del correo' TO gdt_text.

  gs_subject = 'Asunto del correo'.

  TRY.
      go_document = cl_document_bcs=>create_document(
                      i_type       = 'RAW'
                      i_text       = gdt_text
                      i_subject    = gs_subject ).
    CATCH cx_document_bcs.
      "Error al crear contenido del correo
      RETURN.
  ENDTRY.

  TRY.
      go_address = cl_cam_address_bcs=>create_internet_address( p_email ).
    CATCH cx_address_bcs.
      "Error al crear objeto de destinatario
      RETURN.
  ENDTRY.

  TRY.
      go_bcs->set_document( go_document ).
    CATCH cx_send_req_bcs.
      "Error al asignar el objeto de correo
      RETURN.
  ENDTRY.

  TRY.
      go_bcs->add_recipient( go_address ).
    CATCH cx_send_req_bcs.
      "Error al agregar destinatario a la lista
      RETURN.
  ENDTRY.

  TRY.
      go_bcs->set_send_immediately( abap_true ).
    CATCH cx_send_req_bcs.
      "Error al marcar el correo como envio inmediato
      RETURN.
  ENDTRY.

  TRY.
      "Enviar con error en pantalla
      gs_result = go_bcs->send( abap_true ).
    CATCH cx_send_req_bcs.
      "Error al setear el envío de correo
      RETURN.
  ENDTRY.

  IF gs_result EQ abap_true.
    "Se confirma el envío, es necesario.
    COMMIT WORK.
  ENDIF.

Resultado: