Re: [usuarios_fox] MAILS

Ricardo,

yo no he utilizado foxmail para enviar correos, sin embargo si tengo
automatizado el envio de correos sin usar OUTLOOK u otro cliente de correo
electronico.

Te anexo el codigo que uso, desde VFP9:

Local loCfg, loMsg, lcFile, loErr
Try
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") = 465
&& ó 587
.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") = "
usuario@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"contrasenia"
.Update
Endwith
loMsg = Createobject ("CDO.Message")
With loMsg
.Configuration = loCfg
*-- Remitenete y destinatarios
.From = "correo@dominio.com"
.To = "correo@dominio.com"
*-- Tema
.Subject = "Titulo del mensaje"
*-- Cuerpo del mensaje
.HTMLbody = [] && Mensaje en HTML
.TextBody = [] &% Mensaje en formato plano

*-- Archivo adjunto
*!* lcFile = Getfile()
* .AddAttachment(par_archivo)
*-- 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
loMsg = Null
loCfg = Null
Endtry

Desde esta pagina fue donde obtuve esa informacion:

http://www.portalfox.com/index.php?name=News&file=article&sid=2626&theme=Printer
<http://www.portalfox.com/index.php?name=News&file=article&sid=2626&theme=Printer>
2011/2/15 Ricardo Moscarda <rmoscarda@3rom.com.ar>

>
>
> Les ahago una consulta, alguien a utilizado la herramienta de correo
> Foxmail?. Necesito automatizar el envio de mails en lugares donde utilizan
> como aplicación de correo electrónico el FOXMAIL.
>
> Si bien envio mails con aplicación Visual Fox a través del Outlook, Outlook
> express nunca había utilizado esta aplicación FOXMAIL.
>
> Si alguien tiene conocimiento o tiene alguna rutina estare muy agradecido!!
>
> Gracias y saludos a todos.
>
> Ricardo Moscarda
>
> 3ROM
>
> PD: Utilizo Visual Fox 9 SP2
>
> [Se han eliminado los trozos de este mensaje que no contenían texto]
>
>
>

--
Eduardo Arellano Hdez.
Aguascalientes, Mexico
-----------------------------------
eduardo.arellano@gmail.com
Club Rotario Ejecutivo Aguascalientes: http://www.rotarycrea.org
Blog http://www.biglalito.info
FaceBook: http://facebook.biglalito.info

[Se han eliminado los trozos de este mensaje que no contenían texto]

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

Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

Enlaces a Yahoo! Grupos

<*> Para visitar tu grupo en la web, ve a:
http://mx.groups.yahoo.com/group/usuarios_fox/

<*> La configuración de tu correo:
Mensajes individuales | Tradicional

<*> Para modificar la configuración desde la Web, visita:
http://mx.groups.yahoo.com/group/usuarios_fox/join
(ID de Yahoo! obligatoria)

<*> Para modificar la configuración mediante el correo:
usuarios_fox-digest@yahoogrupos.com.mx
usuarios_fox-fullfeatured@yahoogrupos.com.mx

<*> Para cancelar tu suscripción en este grupo, envía
un mensaje en blanco a:
usuarios_fox-unsubscribe@yahoogrupos.com.mx

<*> El uso que hagas de Yahoo! Grupos está sujeto a
las Condiciones del servicio de Yahoo!:
http://mx.yahoo.com/docs/info/utos.html