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:
- Code: Select all Expand view
- #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 Nil
Pero 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,,
