Olá, Ravi,
Muito obrigado, agora meu programa está funcionando corretamente.
Meu problema foi resolvido.
Atenciosamente,
Surya
Avalados por :
Olá, Ravi,
Muito obrigado, agora meu programa está funcionando corretamente.
Meu problema foi resolvido.
Atenciosamente,
Surya
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
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute