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

hola, que tanto tenes de tiempo para hacer una pequeña inversion en algo que se llama "AUTOMATIZACION", es muy facil de usar y no te complicas la vida amigo.

http://www.portalfox.com/index.php?name=News&file=article&sid=2671
http://www.portalfox.com/index.php?name=News&file=article&sid=2673

otro enlaces
Enviar un correo electrónico desde Visual FoxPro a través del servidor SMTP de Windows Live Hotmail

http://www.portalfox.com/index.php?name=News&file=article&sid=2677

saludes

Douglas
from Nicaragua

muchas gracias! ya me pongo a verlo