Necesito poder enviar un email con un fichero adjunto.
He visto una rutina en el foro para OUTLOOK, muy sencilla.
¿ Me podéis indicar como hacerlo para enviar desde Gmail y Hotmail.?
Muchas gracias.
Feliz año nuevo a todos..!!#include "hmg.ch"
Function Main()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 400 ;
MAIN;
TITLE 'Enviar correo con Outlook'
@ 30,70 BUTTON Button_1 CAPTION "enviar" ACTION ENVIARCORREO()
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
FUNCTION ENVIARCORREO()
execute file "\program files\microsoft office\office12\outlook.exe"
oOutLook := CreateObject("Outlook.Application")
oMail := oOutLook:CreateItem(0)
oRecip := oMail:Recipients
oRecip:Add( "creydav@gmail.com" )
oRecip:Add( "facturacion@zuca.com.mx" )
oAdjunto:=oMail:Attachments
oAdjunto:Add( "c:\saz\rc8001.pdf" )
oAdjunto:Add( "c:\saz\rc8001.xml" )
oMail:Subject := "Asunto"
oMail:Body := "Cuerpo de la prueba"
oMail:Send()
RETURN