|
hola ana_am.
No se si te valdrá esto.
Lo que yo hice fue enviar desde sap, un correo adjuntando un fichero, atraves del outlook.
Te pego el código que use:
*Enviar mail con fichero adjunto
IF txt_fichero <> ''.
CREATE OBJECT outlook 'outlook.application'.
CALL METHOD OF outlook 'CreateItem' = item
EXPORTING
#1 = '0'.
SET PROPERTY OF item 'To' = email.
* creo el cuerpo del mensaje que estará compuesto por los campos introducidos en la dynpro 1010
CLEAR gv_body.
LOOP AT objcont.
CONCATENATE gv_body objcont-line INTO gv_body.
CONCATENATE gv_body cl_abap_char_utilities=>cr_lf INTO gv_body.
ENDLOOP.
SET PROPERTY OF item 'BODY' = gv_body.
* aquí le indico el asunto del correo
SET PROPERTY OF item 'Subject' = texto_correo.
* aquí adjunto un fichero al correo a enviar
CALL METHOD OF item 'Attachments' = lattach.
CALL METHOD OF lattach 'Add'
EXPORTING
#1 = txt_fichero.
CALL METHOD OF item 'Send'. "con esta lo envía de inmediato
* CALL METHOD OF ITEM 'DISPLAY'. "con esta abriría la ventana del outlook
FREE OBJECT item.
FREE OBJECT outlook.
FREE OBJECT lattach.
|