¿Cómo llamar al Outlook para enviar un correo con archivo adjunto a través de OLE?

Hola Ravi,

Muchas gracias, estoy probando tu código pero no adjunta el archivo.

¿Podrías revisarlo por favor?

Este es el código que estoy utilizando:

REPORT ZTEST92.

INCLUDE OLE2INCL.

DATA: OUTLOOK TYPE OLE2_OBJECT,

MAILITEM TYPE OLE2_OBJECT,

ATTACHMENTS TYPE OLE2_OBJECT,

SUCCES TYPE OLE2_OBJECT,

APPT TYPE OLE2_OBJECT,

BODYMAIL(600) TYPE C.

CREATE OBJECT OUTLOOK 'Outlook.Application'.

*Crear un nuevo correo:

CALL METHOD OF OUTLOOK 'CREATEITEM' = MAILITEM EXPORTING #1 = 0.

*Establecer las propiedades de Outlook:

SET PROPERTY OF MAILITEM 'TO' = 'surya_moidaATyahoo.com'.

SET PROPERTY OF MAILITEM 'CC' = 'xxxATmail.com'.

SET PROPERTY OF MAILITEM 'SUBJECT' = 'línea de asunto'.

concatenar 'p_body' 'p_body2' en bodymail.

concatenar 'bodymail' 'p_body3' en bodymail.

SET PROPERTY OF MAILITEM 'BODY' = bodymail.

*Crear el archivo adjunto:

CALL METHOD OF MAILITEM 'ATTACHMENTS' = ATTACHMENTS.

***AQUÍ ESTOY OBTENIENDO EL VALOR SY-SUBRC 2 PARA LA SIGUIENTE DECLARACIÓN

CALL METHOD OF ATTACHMENTS 'ADD' = SUCCES

EXPORTING #1 = 'D:\DOWNLOAD\sai.doc'

#2 = 1.

**Si el archivo/ruta no se encuentra

if sy-subrc <> 0.

RAISE file_open_error.

endif.

*Llamar a la acción.

CALL METHOD OF MAILITEM 'DISPLAY'.

*Cerrar todas las instancias.

FREE SUCCES.

FREE ATTACHMENTS.

FREE MAILITEM.

FREE OUTLOOK.

Hola Surya,

Utiliza el código de muestra a continuación. Solo descomenta la parte del adjunto y proporciona la ruta de archivo adecuada.

Nota: MS Outlook debe estar configurado primero.

INCLUIR OLE2INCL.

DATA: OUTLOOK TYPE OLE2_OBJECT,

MAILITEM TYPE OLE2_OBJECT,

ATTACHMENTS TYPE OLE2_OBJECT,

SUCCES TYPE OLE2_OBJECT,

APPT TYPE OLE2_OBJECT,

BODYMAIL(600) TYPE C.

CREATE OBJECT OUTLOOK 'Outlook.Application'.

• Crear un nuevo correo electrónico:

CALL METHOD OF OUTLOOK 'CREATEITEM' = MAILITEM EXPORTING #1 = 0.

• Establecer las propiedades de Outlook:

SET PROPERTY OF MAILITEM 'TO' = 'P_TO'.

SET PROPERTY OF MAILITEM 'CC' = 'P_CC'.

SET PROPERTY OF MAILITEM 'SUBJECT' = 'P_SUBJECT'.

concatenar 'p_body' 'p_body2' en bodymail.

concatenar 'bodymail' 'p_body3' en bodymail.

SET PROPERTY OF MAILITEM 'BODY' = bodymail.

• Crear el adjunto:

*LLAMAR AL MÉTODO DE MAILITEM 'Attachments' = ATTACHMENTS.

*LLAMAR AL MÉTODO DE ATTACHMENTS 'ADD' = SUCCES

*EXPORTANDO #1 = 'P_ATTACH'

*#2 = 1.

• Si el archivo/ruta no se encuentra

si sy-subrc <> 0.

RAISE file_open_error.

endif.

• Llamar a la acción.

CALL METHOD OF MAILITEM 'DISPLAY'.

• Otro error:

si sy-subrc <> 0.

*RAISE Email_action_error.

endif.

• Cerrar todas las instancias.

FREE SUCCES.

FREE ATTACHMENTS.

FREE MAILITEM.

FREE OUTLOOK.

Saludos

Rajvansh

Hola Surya,

Utilice el código de muestra a continuación. Simplemente descomente la parte del archivo adjunto y proporcione la ruta de archivo adecuada.

Nota: MS Outlook debe estar configurado primero.

INCLUDE OLE2INCL.

DATA: OUTLOOK TYPE OLE2_OBJECT,

MAILITEM TYPE OLE2_OBJECT,

ATTACHMENTS TYPE OLE2_OBJECT,

SUCCES TYPE OLE2_OBJECT,

APPT TYPE OLE2_OBJECT,

BODYMAIL(600) TYPE C.

CREATE OBJECT OUTLOOK 'Outlook.Application'.

• Crear un nuevo correo electrónico:

CALL METHOD OF OUTLOOK 'CREATEITEM' = MAILITEM EXPORTING #1 = 0.

• Establecer las propiedades de Outlook:

SET PROPERTY OF MAILITEM 'TO' = 'P_TO'.

SET PROPERTY OF MAILITEM 'CC' = 'P_CC'.

SET PROPERTY OF MAILITEM 'SUBJECT' = 'P_SUBJECT'.

concatenar 'p_body' 'p_body2' en bodymail.

concatenar 'bodymail' 'p_body3' en bodymail.

SET PROPERTY OF MAILITEM 'BODY' = bodymail.

• Crear el archivo adjunto:

*CALL METHOD OF MAILITEM 'Attachments' = ATTACHMENTS.

*CALL METHOD OF ATTACHMENTS 'ADD' = SUCCES

*EXPORTING #1 = 'P_ATTACH'

*#2 = 1.

• Si el archivo/ruta no se encuentra

if sy-subrc <> 0.

RAISE file_open_error.

endif.

• Llamar a la acción.

CALL METHOD OF MAILITEM 'DISPLAY'.

• Otro error:

if sy-subrc <> 0.

*RAISE Email_action_error.

endif.

• Cerrar todas las instancias.

FREE SUCCES.

FREE ATTACHMENTS.

FREE MAILITEM.

FREE OUTLOOK.

Saludos

Rajvansh