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

612 views
Skip to first unread message

Luis Leon

unread,
Nov 26, 2021, 12:26:26 PM11/26/21
to foro vfp
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/smtpserverport")   = VSer_Email && 465 && ó 587
    .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

unread,
Nov 26, 2021, 1:57:32 PM11/26/21
to Comunidad de Visual Foxpro en Español
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/




HernanCano

unread,
Nov 26, 2021, 2:02:01 PM11/26/21
to Comunidad de Visual Foxpro en Español
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

unread,
Nov 26, 2021, 2:29:16 PM11/26/21
to publice...@googlegroups.com
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

unread,
Nov 26, 2021, 7:16:44 PM11/26/21
to Comunidad de Visual Foxpro en Español
Prueba con este puerto 587
Reply all
Reply to author
Forward
0 new messages