He estado probando las distintas opciones que he visto para enviar correo electronico , pero no consigo hacer funcionar ninguna, twmail, por que es para xhabour y yo uso habour. Alguna funcion para enviar email usando habour.
Gracias.
Board index FiveWin para Harbour/xHarbour Enviar Correo con Habour.
primero me cole, siempre me dejo la "r" y más de un problema me ha traido. quise decir claro harbour.
Tambien o preferible me serviria usar enlace con Outlook, algun ejemplo estoy mirando por el foro pero me estoy mareando, no encuentro nada claro.
Muchas Gracias.
He conseguido enviar correo ok, con el outlook asi con un ejemplo que vi :
static function GeneraCorreo()
LOCAL oOutLook,oMailItem,oRecip,oAttach
oOutLook := TOleAuto():New("Outlook.Application")
oMailItem := oOutLook:Invoke("CreateItem", 0)
oRecip := oMailItem:Invoke("Recipients")
oRecip:Invoke("Add", "xxxxx@xxxxxxxxxx.com")
oMailItem:Set("Subject", "Testing e-mail via ole fw")
oMailItem:Set("Body", "Assunto, referente fatura 0001 no valor de "+CRLF+ ;
"R$ 1.500,00"+CRLF+CRLF+"Tudo Informática"+CRLF)
/
oAttach := oMailItem:Invoke("Attachments")
oAttach:Invoke("Add", "c:\autoexec.bat")
oAttach:Invoke("Add", "c:\config.sys")
/
oMailItem:Invoke("Send")
oRecip:End()
oAttach:End()
oMailItem:End()
oOutLook:End()
Return nil
Pregunta, ¿en Lugar de enviarlo directamente, alguien sabria como hacer que salga la pantalla con todos los datos de envio de correo nuevo,(como si lo hicieramos nosotros manualmente en el outlook)? Gracias.