FoxPro/Visual FoxPro - Ayuda con envio de mail

   
Vista:

Ayuda con envio de mail

Publicado por Ale Placereano (91 intervenciones) el 12/03/2009 15:17:36
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") = "aplacereano@yahoo.com.ar"
.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 <aplacereano@yahoo.com.ar>"
.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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con envio de mail

Publicado por Douglas (297 intervenciones) el 14/03/2009 17:07:21
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

muchas gracias

Publicado por Ale Placereano (91 intervenciones) el 18/03/2009 14:12:20
muchas gracias! ya me pongo a verlo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar