VFP Envio de correos

Desde VFP estoy intentado enviar correo con CDO.Message, pero me genera error: Error de Transporte en la conexion al servidor, esta son las sentencias que estoy ejecutando:

loMsg = CreateObject("CDO.Message")

WITH loMsg.Configuration.Fields

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

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

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

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

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@outlook.com"

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

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

.Update

ENDWITH

loMsg.From = "******@outlook.com"

loMsg.To = "******@gmail.com"

loMsg.Subject = "Prueba"

loMsg.TextBody = "Correo enviado desde VFP"

loMsg.Send