FoxPro/Visual FoxPro - Ayuda con envio de mail

Buenas!!!

tengo un problema, necesito mandar desde una pantalla de vfp mails autom{aticos, he probado con CDOSYS y solo puedo mandar mails con una cuenta de gMail, pero necesito mandar mails de cualquier tipo de cuenta, como yahoo, etc

yo utilizo este codigo, que hago mal?

-------------------------------------------------------------------------------------------------------

LOCAL loCfg, loMsg, lcFile, loErr

TRY
loCfg = CREATEOBJECT("CDO.Configuration")

WITH loCfg.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yahoo.com.ar"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "111111"

.Update
ENDWITH

loMsg = CREATEOBJECT ("CDO.Message")

WITH loMsg
.Configuration = loCfg

*-- Remitenete y destinatarios
.From = "Alejandro Placereano <[email protected]>"
.To = thisform.diremail.Value

*- Notificación de lectura
.Fields("urn:schemas:mailheader:disposition-notification-to") = .From
.Fields("urn:schemas:mailheader:return-receipt-to") = .From
.Fields.Update

*-- Tema
.Subject = thisform.Asunto.Value
.TextBody = thisform.MensAJE.Value

SELECT Archivos

SCAN
*-- Archivos adjuntos
lcFile = Archivos.Largo

IF NOT EMPTY(lcFile) AND FILE(lcFile)
.AddAttachment(lcFile)
ENDIF
ENDSCAN

*-- Envio el mensaje
.Send()
ENDWITH

CATCH TO loErr
MESSAGEBOX("No se pudo enviar el mensaje" + CHR(13) + ;
"Error: " + TRANSFORM(loErr.ErrorNo) + CHR(13) + ;
"Mensaje: " + loErr.Message , 16, "Error")

FINALLY
IF loErr.ErrorNo = 0
MESSAGEBOX("Mensaje enviado!", 64, "e - Mail")
ENDIF

loMsg = NULL
loCfg = NULL
ENDTRY

----------------------------------------------------------------------------------------------------------------

desde ya muchisimas gracias al que me pueda ayudar

muchas gracias! ya me pongo a verlo