Re: [usuarios_fox] MAILS

ESta parte la podrias parametrizar:

select * from tabla_parametros into cursor parametros

With loCfg.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
parametros.servidor
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
parametros.puerto
.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") =
parametros.usuario
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
parametros.contra
.Update
Endwith

2011/2/16 Ricardo Moscarda <rmoscarda@3rom.com.ar>

>
>
> Gracias Eduardo, por lo que veo aca se 'configura' la cuenta de correo por
> código, y lo que veo de contrariedad en esto es que debería guardar los
> datos en alguna tabla auxiliar de los correos existentes para obtenerlos,
> ya
> que hay mas de un usuario que puede enviar mails.
> Pero bueno, es una salida al menos!
> Muchas gracias la voy a tener muy en cuenta!!
> Saludos.
>
> Ricardo Moscarda
> 3ROM
>
> -----Mensaje original-----
> De: usuarios_fox@yahoogrupos.com.mx [mailto:
> usuarios_fox@yahoogrupos.com.mx]
> En nombre de Eduardo Arellano Hdez.
> Enviado el: miércoles, 16 de febrero de 2011 13:43
> Para: usuarios_fox@yahoogrupos.com.mx
> Asunto: 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=Pri
> nter
> <
> http://www.portalfox.com/index.php?name=News&file=article&sid=2626&theme=Pr
> inter>
> 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
>
>
>

--
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