topic-34949

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Problemas al enviar a @hotmail.com
Posted: Sun Dec 03, 2017 10:27 PM

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.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Problemas al enviar a @hotmail.com
Posted: Mon Dec 04, 2017 08:34 AM

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.

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas al enviar a @hotmail.com
Posted: Mon Dec 04, 2017 02:59 PM

És mejor usar gmail.com. hotmail.com continua sin funcionar.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas al enviar a @hotmail.com
Posted: Tue Dec 05, 2017 12:08 PM

Como hacer esto funcionar usando: smtp-mail.outlook.com ?

Code (fw): Select all Collapse

/* 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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion