FoxPro/Visual FoxPro - No puedo enviar correos usando CDO.MESSAGE

Hola Grupo

No puedo enviar correos usando CDO.MESSAGE
Me marca el error de THE TRANSPOR FAILED TO CONNECT TO THE SERVER
Me pudieran apoyar con algún código que pueda enviar correos desde VFP

Les paso el código CDO.MESSAGE .. que estaré haciendo mal para que no se pueda enviar el correo ??

O algún otro código que me pudieran pasar


loCfg = CREATEOBJECT("CDO.Configuration")

WITH loCfg.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.
.Update
ENDWITH

loMsg = CREATEOBJECT ("CDO.Message")

WITH loMsg
.Configuration = loCfg
.From = "[email protected]"
.To = "[email protected]"
.Subject = "PRUEBA DE ENCIO"
.TextBody = "PRUEBA DE ENVIO"
.Send()
ENDWITH