Como ligar o Outlook para enviar um email com anexo através de OLE?

Olá Ravi,

Muito obrigado, estou testando seu código, mas não está anexando o arquivo.

Poderia verificar, por favor?

Este é o código que estou 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'.

*Criar um novo e-mail:

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

*Definir propriedades do Outlook:

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

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

SET PROPERTY OF MAILITEM 'SUBJECT' = 'linha de assunto'.

concatenar 'p_body' 'p_body2' em bodymail.

concatenar 'bodymail' 'p_body3' em bodymail.

SET PROPERTY OF MAILITEM 'BODY' = bodymail.

*Criar arquivo anexado:

CALL METHOD OF MAILITEM 'ATTACHMENTS' = ATTACHMENTS.

***AQUI ESTOU RECEBENDO O VALOR SY-SUBRC 2 PARA A SEGUINTE DECLARAÇÃO

CALL METHOD OF ATTACHMENTS 'ADD' = SUCCES

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

#2 = 1.

**Se o arquivo/caminho não for encontrado

if sy-subrc <> 0.

RAISE file_open_error.

endif.

*Chamar a ação.

CALL METHOD OF MAILITEM 'DISPLAY'.

*Fechar todas as instâncias.

FREE SUCCES.

FREE ATTACHMENTS.

FREE MAILITEM.

FREE OUTLOOK.

Olá Surya,

Utilize o código de exemplo abaixo. Apenas descomente a parte do anexo e forneça o caminho do arquivo apropriado.

Nota: O MS Outlook deve estar configurado primeiro.

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'.

• Criar um novo e-mail:

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

• Definir as propriedades do 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' em bodymail.

concatenar 'bodymail' 'p_body3' em bodymail.

SET PROPERTY OF MAILITEM 'BODY' = bodymail.

• Criar o anexo:

*CHAMAR O MÉTODO DE MAILITEM 'Attachments' = ATTACHMENTS.

*CHAMAR O MÉTODO DE ATTACHMENTS 'ADD' = SUCCES

*EXPORTANDO #1 = 'P_ATTACH'

*#2 = 1.

• Se o arquivo/caminho não for encontrado

se sy-subrc <> 0.

RAISE file_open_error.

endif.

• Chamar a ação.

CALL METHOD OF MAILITEM 'DISPLAY'.

• Outro erro:

se sy-subrc <> 0.

*RAISE Email_action_error.

endif.

• Fechar todas as instâncias.

FREE SUCCES.

FREE ATTACHMENTS.

FREE MAILITEM.

FREE OUTLOOK.

Saudações

Rajvansh

Olá Surya,

Utilize o código de exemplo abaixo. Basta descomentar a parte do arquivo anexo e fornecer o caminho do arquivo correto.

Nota: O MS Outlook deve estar configurado primeiro.

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'.

• Criar um novo email:

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

• Definir as propriedades do 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' em bodymail.

concatenar 'bodymail' 'p_body3' em bodymail.

SET PROPERTY OF MAILITEM 'BODY' = bodymail.

• Criar o arquivo anexo:

*CALL METHOD OF MAILITEM 'Attachments' = ATTACHMENTS.

*CALL METHOD OF ATTACHMENTS 'ADD' = SUCCES

*EXPORTING #1 = 'P_ATTACH'

*#2 = 1.

• Se o arquivo/caminho não for encontrado

if sy-subrc <> 0.

RAISE file_open_error.

endif.

• Chamar a ação.

CALL METHOD OF MAILITEM 'DISPLAY'.

• Outro erro:

if sy-subrc <> 0.

*RAISE Email_action_error.

endif.

• Fechar todas as instâncias.

FREE SUCCES.

FREE ATTACHMENTS.

FREE MAILITEM.

FREE OUTLOOK.

Saudações

Rajvansh