ENVIAR EMAIL DESDE VFP 9.0

[Hugo Flores Galarza]

Saludos, por primera vez estoy intentando enviar correos directamente desde mi código vfp 9.0, estoy utilizando el CDO.  En mi correo lo veo como enviado, pero nunca llega al destinatario.  No me aparece mensaje de error alguno, pero simplemente, no llega al destinatario.

Mi código:

*FUNCTION send_email

loMail = NEWOBJECT("Cdo2000", "Cdo2000.fxp")

WITH loMail

   .nServerPort = 25

   .lUseSSL = .T.

   .nAuthenticate = 1

   .cServer = "smtp.live.com"

   .cUserName = "x...@hotmail.com"

   .cPassword = "xyz"

   .cFrom     = "x...@hotmail.com"

   .cTo       = "a...@hotmail.com" 

   .cSubject  = "Probando envio de correo, favor responda si lo recibe"

   .cAttachment = "109.pdf"

ENDWITH

IF loMail.Send() > 0

  FOR i=1 TO loMail.GetErrorCount()

          ? i, loMail.Geterror(i)

  ENDFOR

ENDIF

loMail.ClearErrors()

RETURN 

[HernanCano]

https://groups.google.com/g/publicesvfoxpro/c/XVZr2DrX12U

https://groups.google.com/g/publicesvfoxpro/c/mNus8iNA9oA

Veo que otros utilizan el servidor "smtp.office365.com" con buenos resultados.

https://comunidadvfp.blogspot.com/search/?q=gmail

Pareciera que te faltan otro parámetros. ¿Los que faltan están dentro de Cdo2000.fxp?

[Edwin Duran]

Cambia el puerto al  587

[Zarlu]

Buenos días hfloresgalarza!

En éste link de la comunidad el código completo de CDO:

https://groups.google.com/g/publicesvfoxpro/c/XVZr2DrX12U

Prueba también cambiando el puerto como te sugiere Edwin

Suerte

zarlu

Chetumal, Quintana Roo, México