|
no se si es lo que buscas, pero con este codigo, envias un correo desde el outlook. No te puedo contar mucho más porque aun estpy "investigando" como funciona :P:
FORM enviar_mail.
DATA: appoutlook TYPE ole2_object.
DATA: appout2 TYPE ole2_object.
DATA: appitem TYPE ole2_object.
DATA: namespace TYPE ole2_object.
* Crear objeto OLE : outlook.application
CREATE OBJECT appoutlook 'outlook.application' .
* Mensajes vía MAPI
CALL METHOD OF appoutlook 'GetNameSpace' = namespace
EXPORTING #1 = 'MAPI'.
* Crea objeto nuevo ITEM ( nuevo mensaje )
CALL METHOD OF appoutlook 'CreateItem' = appitem
EXPORTING #1 = '0'.
* Propiedades TO , SUBJECT y BODY
SET PROPERTY OF appitem 'To' = 'para@aaaa.com'.
SET PROPERTY OF appitem 'Subject' = 'Asunto del mail'.
SET PROPERTY OF appitem 'Body' = 'mensaje'.
* Envía ITEM
CALL METHOD OF appitem 'Send'.
* Libera Espacio del objeto
FREE OBJECT appitem.
FREE OBJECT namespace.
* Cierra Outlook ( solo si se quiere que quede cerrado )
*** CALL METHOD OF APPOUTLOOK 'Quit'.
FREE OBJECT appoutlook.
ENDFORM. " ENVIAR_MAIL
|