Saludos a todos:
Estoy tratando de crear un modulo para envio de email a mi cuenta de Hotmail desde mis aplicaciones para fines de soporte, he probado con CDOSYS, TWMAil y TSMTP, la idea es no depender de MAPI, Outlook, ActiveX o Framework, si no que en el mismo exe ete el motor de envios, por lo que he revisado y probado estas 3 opciones necesitan autentificar con nombre de usuario y password para "entrar de forma virtual" a la cuenta de correos y desde ah铆 enviarlo al destinatario, en mi caso solo requiero el titulo, el mensaje a enviar y la direcci贸n de quien lo envia, como si se enviara correo de forma an贸nima, algo como esto:
Con TSMTP probe de la siguiente manera tomando como ejemplo Testsmtp.prg:
Pero me retorna unmensaje de error:
aqui hay un ejemplo en visual basic, pero me atore en la traducci贸n:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/340-enviar-email-con-el-control-winsock.htm
Alguien ha hecho algo as铆 y que funcione..?
Gracias,,
Estoy tratando de crear un modulo para envio de email a mi cuenta de Hotmail desde mis aplicaciones para fines de soporte, he probado con CDOSYS, TWMAil y TSMTP, la idea es no depender de MAPI, Outlook, ActiveX o Framework, si no que en el mismo exe ete el motor de envios, por lo que he revisado y probado estas 3 opciones necesitan autentificar con nombre de usuario y password para "entrar de forma virtual" a la cuenta de correos y desde ah铆 enviarlo al destinatario, en mi caso solo requiero el titulo, el mensaje a enviar y la direcci贸n de quien lo envia, como si se enviara correo de forma an贸nima, algo como esto:
Con TSMTP probe de la siguiente manera tomando como ejemplo Testsmtp.prg:
#include "FiveWin.ch"
STATIC oWnd
//----------------------------------------------------------------------------//
FUNCTION Main()
聽 聽LOCAL oBar
聽 聽DEFINE WINDOW oWnd TITLE "Sending Internet Mail from FiveWin"
聽 聽DEFINE BUTTONBAR oBar _3D OF oWnd
聽 聽DEFINE BUTTON OF oBar ACTION SendMail() TOOLTIP "Send Mail"
聽 聽SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD
聽 聽ACTIVATE WINDOW oWnd
RETURN Nil
//----------------------------------------------------------------------------//
FUNCTION SendMail()
聽 聽LOCAL oOutMail, cIP
聽 聽oWnd:SetMsg( "Sending Internet email..." )
聽 聽WSAStartup()
聽 聽cIP := GetHostByName( "smtp-mail.outlook.com")
聽 聽
聽 聽oOutMail := TSmtp():New(cIP)
聽 聽MSGInfo( cIP )
聽 聽oOutMail:bConnecting = { || oWnd:SetMsg( "Connecting to smtp.hotmail.com..." ) }
聽 聽oOutMail:bConnected 聽= { || oWnd:SetMsg( "Connected" ) }
聽 聽oOutMail:bDone 聽 聽 聽 = { || oWnd:SetMsg( "Message sent successfully" ) }
聽 聽oOutMail:SendMail( "djlayon@latinmail.com",; 聽 聽 // From
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 { "danyleon82@hotmail.com" },; // To
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 "It is working!!!",; 聽 聽 聽 聽 聽 聽 聽// Msg Text
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 "Testing FiveWin Class TSmtp enhancements") 聽// attached files
RETURN NilPero me retorna unmensaje de error:
Session did not complete successfully
Stage: ST_INIT
IP 65.55.162.200 could not be resolved
aqui hay un ejemplo en visual basic, pero me atore en la traducci贸n:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/340-enviar-email-con-el-control-winsock.htm
Alguien ha hecho algo as铆 y que funcione..?
Gracias,,
Soluciones y Dise帽o de Software
Damos Soluciones...
I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos
http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Damos Soluciones...
I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos
http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
