Enviar fichero txt por correo

[julianvc]

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.