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
Nenhum comentário:
Postar um comentário