SAP ABAP EMAIL
From SapWiki
EJEMPLO 1
r_subrc = zcl_hcm_class=>send_mail( i_correouser = lt_correos[]
i_text = lt_text[]
i_subject = l_subject
i_sender = 'Remuneraciones@sapwiki.cl'
i_copy = lt_copy
).
METHOD send_mail.
*I_CORREOUSER Importing Type BCSY_SMTPA
*I_TEXT Importing Type BCSY_TEXT
*I_SUBJECT Importing Type SO_OBJ_DES
*I_MAILHEX Importing Type SOLIX_TAB op
*I_ATTACH_NAME Importing Type STRING op
*I_SENDER Importing Type AD_SMTPADR op
*I_COPY Importing Type BCSY_SMTPA op
*R_SUBRC Returning Type SYST_SUBRC
**********************************************************************
DATA: send_request TYPE REF TO cl_bcs,
text TYPE bcsy_text,
binary_content TYPE solix_tab,
document TYPE REF TO cl_document_bcs,
sender TYPE REF TO cl_sapuser_bcs,
recipient TYPE REF TO if_recipient_bcs,
bcs_exception TYPE REF TO cx_bcs,
sent_to_all TYPE os_boolean,
document_data TYPE sofolenti1,
doc_id TYPE sofolenti1-doc_id,
cont_text TYPE soli_tab,
attachment TYPE REF TO if_document_bcs,
lv_attach_name TYPE sood-objdes,
l_sender TYPE REF TO if_sender_bcs,
l_message TYPE string,
l_correouser TYPE ad_smtpadr,
l_address_name TYPE ad_smtpadr.
DATA: ld_addr TYPE adr6-smtp_addr,
internet_sender TYPE REF TO if_sender_bcs.
DATA: gv_dummy(160),
text[] = i_text[].
TRY.
* -------- create persistent send request ------------------------
send_request = cl_bcs=>create_persistent( ).
* -------- create and set document with attachment ---------------
* create document from internal table with text
document = cl_document_bcs=>create_document(
i_type = 'HTM'
i_text = i_text
* i_length = '12'
i_subject = i_subject ).
* add attachment
IF i_attach_name <> space.
lv_attach_name = i_attach_name.
CALL METHOD document->add_attachment
EXPORTING
i_attachment_type = 'BIN'
i_attachment_subject = lv_attach_name
i_att_content_hex = i_mailhex.
ENDIF.
* add document to send request
CALL METHOD send_request->set_document( document ).
* --------- add recipient (e-mail address) -----------------------
* create recipient
LOOP AT i_correouser INTO l_correouser.
l_address_name = l_correouser.
recipient = cl_cam_address_bcs=>create_internet_address(
l_address_name ).
* add recipient with its respective attributes to send request
CALL METHOD send_request->add_recipient
EXPORTING
i_recipient = recipient
i_express = 'X'.
ENDLOOP.
LOOP AT i_copy INTO l_correouser.
l_address_name = l_correouser.
recipient = cl_cam_address_bcs=>create_internet_address(
l_address_name ).
* add recipient with its respective attributes to send request
CALL METHOD send_request->add_recipient
EXPORTING
i_recipient = recipient
i_express = 'X'
i_copy = abap_true.
ENDLOOP.
** Crear 'Enviado por:"
* IF p_from IS NOT INITIAL.
* CALL METHOD cl_cam_address_bcs=>create_internet_address
* EXPORTING
* i_address_string = p_from
* i_address_name = p_from_name
* RECEIVING
* result = l_sender.
*
* send_request->set_sender( l_sender ).
* CLEAR l_sender.
* ENDIF.
* --------- set sender -------------------------------------------
* note: this is necessary only if you want to set the sender
* different from actual user (SY-UNAME). Otherwise sender is
* set automatically with actual user.
IF i_sender IS NOT INITIAL.
ld_addr = i_sender. "'Remuneraciones@sapwiki.cl'.
internet_sender = cl_cam_address_bcs=>create_internet_address(
i_address_string = ld_addr ).
CALL METHOD send_request->set_sender
EXPORTING
i_sender = internet_sender.
ENDIF.
* ---------- send document ---------------------------------------
send_request->send_request->set_link_to_outbox( 'X' ).
CALL METHOD send_request->send(
EXPORTING
i_with_error_screen = 'X'
RECEIVING
result = sent_to_all ).
IF sent_to_all = 'X'.
* WRITE text-003.
ENDIF.
COMMIT WORK.
r_subrc = 0.
* -----------------------------------------------------------
* * exception handling
* -----------------------------------------------------------
* * replace this very rudimentary exception handling
* * with your own one !!!
* -----------------------------------------------------------
CATCH cx_bcs INTO bcs_exception.
r_subrc = 4.
IF NOT bcs_exception->msgid IS INITIAL
AND NOT bcs_exception->msgty IS INITIAL
AND NOT bcs_exception->msgno IS INITIAL.
MESSAGE ID bcs_exception->msgid
TYPE bcs_exception->msgty
NUMBER bcs_exception->msgno
WITH bcs_exception->msgv1
bcs_exception->msgv2
bcs_exception->msgv3
bcs_exception->msgv4
into gv_dummy.
EXIT.
ENDTRY.
ENDMETHOD.
Ejemplo 2 Enviar email con imagenes
REPORT zenvio_mail_html.
DATA: lt_html TYPE soli_tab,
ls_html TYPE soli,
lt_solix_tab TYPE solix_tab,
ls_htmlx TYPE solix,
l_url TYPE so_text255,
l_file_length TYPE i,
l_string TYPE string.
DATA: lo_bcs TYPE REF TO cl_bcs,
lo_doc_bcs TYPE REF TO cl_document_bcs,
lo_mime_helper TYPE REF TO cl_gbt_multirelated_service,
lo_recipient TYPE REF TO if_recipient_bcs,
lo_address TYPE REF TO cl_cam_address_bcs.
DATA : l_xstring TYPE xstring, "image in XSTRING
DATA: l_subject TYPE so_obj_des,
l_username TYPE uname,
l_mail_address TYPE ad_smtpadr.
DATA: l_send_exception TYPE REF TO cx_root,
l_reason TYPE string.
* Attach image to HTML body
DATA: l_filename TYPE string,
l_content_id TYPE string. "for HTML content
DATA : l_obj_len TYPE so_obj_len.
CREATE OBJECT lo_mime_helper.
* crear via trn. se80 => Repository MIME, SAP=>PUBLIC
cl_mime_repository_api=>get_api( )->get(
EXPORTING i_url = '/SAP/PUBLIC/notificacion2.jpg' "image path
IMPORTING e_content = l_xstring
EXCEPTIONS parameter_missing = 1
error_occured = 2
not_found = 3
permission_failure = 4
OTHERS = 5 ).
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = l_xstring
IMPORTING
output_length = l_file_length
TABLES
binary_tab = lt_solix_tab.
* Attach image to HTML body
l_filename = 'mi_imagen.jpg'.
l_content_id = 'mi_imagen.jpg'.
l_obj_len = l_file_length.
CALL METHOD lo_mime_helper->add_binary_part
EXPORTING
content = lt_solix_tab " Xstring in table form
filename = l_filename " file name to be given to image
extension = 'JPG' " type of file
description = 'Graphic in JPG format' " description
content_type = 'image/jpg' " content type / Mime type. If mime type not present in system then need to add through tcode : SMW0
length = l_obj_len " length of image
content_id = l_content_id. " content id would be used in html part
**********************************************************************
* crear HTML
**********************************************************************
lt_html = value #( ( LINE = '<!DOCTYPE html>')
( LINE = '<HTML>')
( LINE = '<HEAD>')
( LINE = '<TITLE>Mi titulo</TITLE>')
( LINE = '</HEAD>')
( LINE = '<BODY>')
( line = '<p class=Default align=center>')
( line = '<IMG alt="[image]" src="cid:mi_imagen.jpg"/>')
( line = '</p>')
( LINE = '<H1>Rechazo el Pago</H1>')
( LINE = 'Estimado Representante de la Empresa <P>')
( LINE = 'Ud. esta rechazado <P>')
( LINE = '</BODY></HTML>') ).
BREAK-POINT.
**********************************************************************
*
**********************************************************************
TRY.
l_subject = 'Rechazo'(t01).
CALL METHOD lo_mime_helper->set_main_html
EXPORTING
content = lt_html "
filename = 'sap.htm' " file name to be given to image
description = 'Imagen'. " description. " content id would be used in html part
lo_doc_bcs = cl_document_bcs=>create_from_multirelated(
i_subject = l_subject
i_multirel_service = lo_mime_helper ).
CATCH cx_document_bcs INTO l_send_exception.
* error handling
* write: / 'Fehler in cl_document_bcs=>create_from_multirelated()'(001).
l_reason = l_send_exception->get_text( ).
WRITE: / l_reason.
EXIT.
CATCH cx_bcom_mime INTO l_send_exception.
* error handling
* write: / 'Fehler in cl_document_bcs=>create_from_multirelated()'(002).
l_reason = l_send_exception->get_text( ).
WRITE: / l_reason.
EXIT.
CATCH cx_gbt_mime INTO l_send_exception.
* error handling
* write: / 'Fehler in cl_document_bcs=>create_from_multirelated()'(003).
l_reason = l_send_exception->get_text( ).
WRITE: / l_reason.
EXIT.
ENDTRY.
* create send_request
TRY.
lo_bcs = cl_bcs=>create_persistent( ).
CATCH cx_send_req_bcs INTO l_send_exception.
* error handling
* write: / 'Fehler in cl_bcs=>create_persistent()'(004).
l_reason = l_send_exception->get_text( ).
WRITE: / l_reason.
EXIT.
ENDTRY.
TRY.
lo_bcs->set_document( i_document = lo_doc_bcs ).
CATCH cx_send_req_bcs INTO l_send_exception.
* error handling
* write: / 'Fehler in <cl_bcs>->set_document()'(005).
l_reason = l_send_exception->get_text( ).
WRITE: / l_reason.
EXIT.
ENDTRY.
l_mail_address = 'pablo.tapia@sapwiki.cl'.
TRY.
lo_address = cl_cam_address_bcs=>create_internet_address( l_mail_address ).
CATCH cx_address_bcs.
* "Error al crear objeto de destinatario
RETURN.
ENDTRY.
*
TRY.
lo_bcs->add_recipient( lo_address ).
CATCH cx_send_req_bcs.
* "Error al agregar destinatario a la lista
RETURN.
ENDTRY.
* --------- set sender -------------------------------------------
* note: this is necessary only if you want to set the sender
* different from actual user (SY-UNAME). Otherwise sender is
* set automatically with actual user.
DATA: ld_addr TYPE adr6-smtp_addr,
lo_internet_sender TYPE REF TO if_sender_bcs.
l_mail_address = 'ejecutivo@sapwiki.cl'.
TRY.
lo_internet_sender = cl_cam_address_bcs=>create_internet_address(
i_address_string = l_mail_address ).
CATCH cx_address_bcs .
ENDTRY.
TRY.
CALL METHOD lo_bcs->set_sender
EXPORTING
i_sender = lo_internet_sender.
CATCH cx_send_req_bcs .
ENDTRY.
*--------------------------------------------------------------------*
TRY.
lo_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
DATA(l_result) = lo_bcs->send( abap_true ).
CATCH cx_send_req_bcs.
* "Error al setear el envío de correo
RETURN.
ENDTRY.
IF l_result EQ abap_true.
"Se confirma el envío, es necesario.
COMMIT WORK.
ENDIF.
