FoxPro/Visual FoxPro - Error en envio de correo con VFP usando SMTP

Buenos dias Foxeros, saludos a todos y espero que me ayuden con este problema
Estoy Enviando por correo electrónico por el servidor SMTP he probado gmail, hotmail, y yahoo
todos me dan el mismo error
Error 1429
The message could not be sent to the SMTP server, The server response was not available

Tengo windows 7 VFP 9, ya revise el usario, la contraseña, el puerto y todo esta correcto, configuro con los mismos datos en windows live mail y funciona

Saludos, yo pienso que el problema está en los puertos y demás parametros para el envío del email. Personalmente he tenido problemas si utilizo hotmail yahoo u otro distinto a gmail como "emisor" del email.

El caso del correo electronico receptor, puede ser de cualquier cuenta y lo envía sin problemas.

Si pudieras exponer el codigo que utilizar para enviar, podría compararlo con mi codigo y tratar de solucionar el problema.

LParameters EmailRemitente, Contrasena, EmailDestinatario, Titulo, Texto, ArchivosAdjuntos

* URL: http://www.portalfox.com/index.php?name=News&file=article&sid=2626&mode=nested&order=0&thold=0
WAIT WINDOW ArchivosAdjuntos
if Empty(ArchivosAdjuntos)
Wait Window "Estoy tratando de enviar el e-mail a: " + EmailDestinatario NoWait
else
Wait Window "Estoy tratando de enviar el e-mail a: " + EmailDestinatario + ". Paciencia, esto puede tardar varios minutos..." NoWait
endif

Try
Local Esquema, oCDO, oMsg, oError
Esquema = "http://schemas.microsoft.com/cdo/configuration/"
oCDO = CreateObject("CDO.Configuration")
with oCDO.Fields
do case
case "GMAIL" $ Upper(EmailRemitente)
.Item(Esquema + "smtpserver") = "smtp.gmail.com"
.Item(Esquema + "smtpserverport") = 465
.Item(Esquema + "sendusing") = 2
.Item(Esquema + "smtpauthenticate") = .T.
.Item(Esquema + "smtpusessl") = .T.
case "HOTMAIL" $ Upper(EmailRemitente)
.Item(Esquema + "smtpserver") = "smtp.live.com"
.Item(Esquema + "smtpserverport") = 25
.Item(Esquema + "sendusing") = 2
.Item(Esquema + "smtpauthenticate") = .T.
.Item(Esquema + "smtpusessl") = .T.
case "YAHOO" $ Upper(EmailRemitente)
.Item(Esquema + "smtpserver") = "smtp.mail.yahoo.com"
.Item(Esquema + "smtpserverport") = 25
.Item(Esquema + "sendusing") = 2
* .Item(Esquema + "smtpauthenticate") = .T.
* .Item(Esquema + "smtpusessl") = .T.
otherwise
Wait Window "No puedo enviar este e-mail. No conozco los parámetros necesarios del servidor de correo"
endcase
.Item(Esquema + "sendusername") = EmailRemitente
.Item(Esquema + "sendpassword") = Contrasena
.Update()
endwith
oMsg = CreateObject("CDO.Message")
with oMsg
.Configuration = oCDO
.From = EmailRemitente
.To = EmailDestinatario
.Subject = Titulo
.TextBody = Texto
if !Empty(ArchivosAdjuntos)
.AddAttachment(ArchivosAdjuntos)
* .AddAttachment() && Hay que agregar una línea AddAttachment() por cada archivo adjunto
endif
*.Fields("urn:schemas:mailheader:disposition-notification-to") = .From
*.Fields("urn:schemas:mailheader:return-receipt-to") = .From
*.Fields.Update
.Send()
Wait Window 'El e-mail con título: "' + AllTrim(Titulo) + '" fue enviado exitosamente.'
endwith
catch to oError
=MessageBox("No pudo enviarse el e-mail" + Chr(13) + "Error Nº: " + Transform(oError.ErrorNo) + Chr(13) + "Mensaje: " + oError.Message)
finally
Release oCDO, oMsg
oCDO = .NULL.
oMsg = .NULL.
endtry

Return

En un foro decia que es problema del puerto ya que usa el 465 y el 25, pero hable con el ISP y me dice que estos no estan habilitados, pero otros puertos como el 468 y el 26 si estan pero pruebo con estos y tampoco funciona

Hola
Resolvi el problema con la siguiente rutina, para lo cual utiliza el outlook