Error 1429 al enviar un email, con servidor de envio de hotmail

[Luis Leon]

Estimados amigos, estoy tratando de enviar un email, usando el servidor de correos de hotmail, y me arroja en error 1429,

el codigo que uso es el sgte,  haber si alguien me puede ayudar, el error solo se presenta para hotmail ,Gracias

VDom_Email = "smtp.gmail.com"

VSer_Email =  465

Do Case

     Case At("@gmail.com",LVEmail)>0

        VDom_Email = "smtp.gmail.com"

        VSer_Email =  465

   Case At("@hotmail.com",LVEmail)>0

        VDom_Email = "smtp.live.com"  

        VSer_Email =  25

Endcase

Try

  loCfg = CREATEOBJECT("CDO.Configuration")

  With loCfg.Fields

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")       = VDom_Email && "smtp.gmail.com"

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")   = VSer_Email && 465 && ó 587

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")        = 2

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")       = .T.

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername")     = LVEmail

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")     = LVpassword

    .Update

  Endwith

  loMsg = CREATEOBJECT ("CDO.Message")

  With loMsg

    .Configuration = loCfg

    *-- Remitenete y destinatarios

    .From =  LvDetallle + " <"+LVEmail+">"

    CEmail = STRTRAN((CEmail),',',Chr(13))

    lnLines  = ALINES(Emails,CEmail)

    Lc_CadMail = ""

    For Lc_Mail=1 To lnLines

        Lc_CadMail = Lc_CadMail + "<"+Alltrim(Emails[Lc_Mail])+">"

        If Lc_Mail<>lnLines

           Lc_CadMail = Lc_CadMail + ","

        Endif  

    Next

    .To = Lc_CadMail

    Mi_Cc = ""

    If !Empty(_Screen.Lc_BACENVEMA)

        Mi_Cc = LvDetallle+" <"+_Screen.Lc_BACENVEMA+'>'

    Endif

    .Cc = Mi_Cc

    *- Notificación de lectura

    .Fields("urn:schemas:mailheader:disposition-notification-to") = .From

    .Fields("urn:schemas:mailheader:return-receipt-to") = .From

    .Fields.Update

    .Subject = Lc_Subject &&  "Envio de Información Electronica <"+Alltrim(Mi_Empresa)+">"

 

    If !Empty(Lc_Archivo01)

  .AddAttachment(Lc_Archivo01) && Primer Archivo

Endif

If !Empty(Lc_Archivo02)

  .AddAttachment(Lc_Archivo02) && Segundo Archivo

Endif

If !Empty(Lc_Archivo03)

  .AddAttachment(Lc_Archivo03) && Tercer Archivo

Endif

.TextBody = Lc_Cuerpo

    .Send()

  Endwith

 

Catch To loErr

      Messagebox_("se ha detectado un error de envio : "+Str(LoErr.ErrorNo),64,"Advertencia")

Finally

  loMsg = NULL

  loCfg = NULL

Endtry

[HernanCano]

He encontrado información diversa sobre cuál es el puerto y/o el servidor SMTP para Hotmail.

Te recomiendo que pruebes con distintas combinaciones.

https://serversmtp.com/es/smtp-hotmail-configuracion/

https://answers.microsoft.com/es-es/outlook_com/forum/all/cuenta-microsoft-smtp-de-hotmail/f5c8880c-3910-45a5-82b1-adcc50aaab23

https://support.microsoft.com/es-es/office/configuraci%C3%B3n-pop-imap-y-smtp-para-outlook-com-d088b986-291d-42b8-9564-9c414e2aa040

https://answers.microsoft.com/es-es/outlook_com/forum/all/outlookcom-cu%C3%A1l-es-el-smtp-de-hotmail/efb49e41-a089-4a76-a8c0-60ba6997a454

[HernanCano]

Verifica si cambiando 

.From =  LvDetallle + " <"+LVEmail+">"

por

.From =  LVEmail

se te comporta mejor.

También quita el TRY/CATCH para probar y mirar si aparece error en alguna parte.

[Luis Blank]

Buenas tardes, estimado foro, tengo una rutina usando cdo que envia un reporte de ventas específico al cierre del día.

Dicha rutina al ser llamada por el código de un botón funciona.  

Debería funcionar también en automático. De hecho a 50 clientes les funciona. Pero, 

Al hacer algún cambio de infraestructura de red,  en este caso reemplace el servidor.... Deja de funcionar en automático, por unos días, después vuelve a la normalidad.

A alguien le ha pasado algo parecido?

Tienen idea de cuál será el problema?

De antemano muchas gracias.

Luis Blank

Valencia

Venezuela

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/69bb45ac-457e-4c99-8909-39cdf8a61355n%40googlegroups.com.

[Edwin Duran]

Prueba con este puerto 587