¡Caminando hacia el éxito!

Aprende en Comunidad

Avalados por :

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

  • Creado 01/03/2024
  • Modificado 01/03/2024
  • 3 Vistas
0
Cargando...

Olá,

Como podemos chamar o Outlook para enviar um e-mail com um arquivo anexo através do OLE?

Saudações,

surya

Editado por: Surya Rao M em 20 de agosto de 2008 às 6:22 AM

Pedro Pascal
Se unió el 07/03/2018
Pinterest
Telegram
Linkedin
Whatsapp

4 Respuestas

0
Cargando...

Olá, Ravi,

Muito obrigado, agora meu programa está funcionando corretamente.

Meu problema foi resolvido.

Atenciosamente,

Surya

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

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.

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

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

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

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

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019

contacto@primeinstitute.com

(+51) 1641 9379
(+57) 1489 6964

© 2024 Copyright. Todos los derechos reservados.

Desarrollado por Prime Institute

¡Hola! Soy Diana, asesora académica de Prime Institute, indícame en que curso estas interesado, saludos!
Hola ¿Puedo ayudarte?