Guía Abap Para Envío De Mails A Casillas Externas Al Sistema
De ser necesario de enviar a un grupo de direcciones puede tenerse en cuenta la tabla ZB003, y lasdirecciones correspondientes a la tabla interna T_EMAIL.
El código es el siguiente:
* Tabla interna del Mail
data: begin of email_itab occurs 10.
include structure soli.
data: end ofemail_itab.
data: t_email like soos1-recextnam. "Lista de distribución de mail
constants: c_email_distribution like soos1-recextnam
value 'c.fecas@ternium.com.ar'.
* Initializationrefresh email_itab.
* Popular Datos
email_itab-line = 'email body text 1'.
append email_itab.
email_itab-line = 'email body text 2'.
append email_itab.
t_email = c_email_distribution.call function 'Z_SEND_EMAIL_ITAB'
exporting
application = 'EMAIL'
emailtitle = 'Email Subject'
recextnam = t_email
tables
texttab =email_itab
exceptions
others = 1.
Y tambien te paso el código que corresponde a la función Z_SEND_EMAIL_ITAB
function z_send_email_itab.*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" REFERENCE(APPLICATION) LIKE SOOD1-OBJNAM
*" REFERENCE(EMAILTITLE) LIKE SOOD1-OBJDES
*" REFERENCE(RECEXTNAM)LIKE SOOS1-RECEXTNAM
*" TABLES
*" TEXTTAB STRUCTURE SOLI
*"----------------------------------------------------------------------
*- Declaración Local
data: ohd like sood1,oid like soodk,
to_all like sonv-flag,
okey like swotobjid-objkey.
data: begin of receivers occurs 0.
include structure soos1.
data: end of receivers.data: lv_tnam(1244) type c.
*- Llenado de odh
clear ohd.
ohd-objla = sy-langu.
ohd-objnam = application.
ohd-objdes = emailtitle.
ohd-objpri = 3.
ohd-objsns = 'F'....
Regístrate para leer el documento completo.