Page 1 of 1
Problemas al enviar a @hotmail.com
Posted: Sun Dec 03, 2017 10:27 pm
by FiveWiDi
Hola a todos,
Tienen problemas para enviar correos a mails de @hotmail.com?
Yo lo estoy intentando con la rutina de TSmtp.prg de fivewin (si no equivoco).
*********************************
EDITO, amplío información:
Resulta que el servidor de mi mail es: smtp.rebuts.cat
Si realizo GetHostByName(smtp.rebuts.cat), me devuelve la IP 46.16.61.50
Ahora bien, si realizo GetHostByAddress(46.16.61.50), me devuelve una cadena vacía.
Entonces, como resolverían esta situación?
Por que la clase TSMTP no consigue realizar una conexión (parece) al servidor de correo.
Re: Problemas al enviar a @hotmail.com
Posted: Mon Dec 04, 2017 8:34 am
by hmpaquito
Apostaría que tiene que ver con SSL. Sólo es intuición.
Me imagino que también has intentado el envio desactivado el firewall.
Re: Problemas al enviar a @hotmail.com
Posted: Mon Dec 04, 2017 2:59 pm
by karinha
És mejor usar gmail.com. hotmail.com continua sin funcionar.
Re: Problemas al enviar a @hotmail.com
Posted: Tue Dec 05, 2017 12:08 pm
by karinha
Como hacer esto funcionar usando: smtp-mail.outlook.com ?
Code: Select all
/* Copyright 2009 Viktor Szakats (vszakats.net/harbour) */
#require "hbssl"
#require "hbtip"
#if ! defined( __HBSCRIPT__HBSHELL )
REQUEST __HBEXTERN__HBSSL__
#endif
#include "simpleio.ch"
PROCEDURE Main( cFrom, cPassword, cTo, cHost )
LOCAL nPort
LOCAL lSTARTTLS := .F.
IF ! tip_SSL()
? "Error: Requires SSL support"
RETURN
ENDIF
hb_default( @cFrom , "<from@example.net>" )
hb_default( @cPassword, "password" )
hb_default( @cTo , "to@example.org" )
hb_default( @cHost , "localhost" )
cHost := Lower( cHost )
/* SMTPS works with SSL/TLS on port 465 and with STARTTLS
on port 587. STARTTLS mode is fully automatic and requires
SSL/TLS be disabled at first (it will be activated on
request after STARTTLS command) */
DO CASE
CASE cHost == "apple" .OR. "@icloud.com" $ cFrom .OR. "@mac.com" $ cFrom .OR. "@me.com" $ cFrom
cHost := "smtp.mail.me.com"; lSTARTTLS := .T.
CASE cHost == "fastmail" .OR. "@fastmail.com" $ cFrom .OR. "@fastmail.fm" $ cFrom
cHost := "smtp.fastmail.com"
CASE cHost == "gmx.net" .OR. "@gmx.net" $ cFrom .OR. "@gmx.ch" $ cFrom .OR. "@gmx.de" $ cFrom
cHost := "mail.gmx.net"
CASE cHost == "google" .OR. "@gmail.com" $ cFrom .OR. "@googlemail.com" $ cFrom
cHost := "smtp.gmail.com"
CASE cHost == "mail.ru" .OR. "@mail.ru" $ cFrom
cHost := "smtp.mail.ru"
CASE cHost == "netease" .OR. "@163.com" $ cFrom
cHost := "smtp.163.com"
CASE cHost == "office365"
cHost := "smtp.office365.com"; lSTARTTLS := .T.
CASE cHost == "outlook" .OR. "@outlook.com" $ cFrom .OR. "@hotmail.com" $ cFrom
cHost := "smtp-mail.outlook.com"; lSTARTTLS := .T.
CASE cHost == "sina" .OR. "@sina.com" $ cFrom
cHost := "smtp.vip.sina.com"
CASE cHost == "uol" .OR. "@uol.com.br" $ cFrom
cHost := "smtps.uol.com.br"
CASE cHost == "yahoo" .OR. "@yahoo.com" $ cFrom
cHost := "smtp.mail.yahoo.com"
CASE ":" $ cHost
IF TUrl():New( cHost ):nPort != -1
nPort := TUrl():New( cHost ):nPort
ENDIF
lSTARTTLS := ( nPort == 587 )
cHost := TUrl():New( cHost ):cServer
ENDCASE
hb_default( @nPort, iif( lSTARTTLS, 587, 465 ) )
? "Host:", cHost, hb_ntos( nPort ), iif( lSTARTTLS, "(STARTTLS)", "" )
? tip_MailSend( ;
cHost, ;
nPort, ;
cFrom, ;
cTo, ;
/* CC */, ;
{} /* BCC */, ;
"test: body", ;
"test: subject", ;
{ __FILE__ } /* attachment */, ;
cFrom, ;
cPassword, ;
"", ;
/* nPriority */, ;
/* lRead */, ;
.T. /* lTrace */, ;
.F., ;
/* lNoAuth */, ;
/* nTimeOut */, ;
/* cReplyTo */, ;
nPort == 465 )
RETURN
Gracias, saludos.