Enviar correos electronicos (eMail) desde GMail o HotMail usando VFP y el componente ChilKat

660 views
Skip to first unread message

Halcón Divino

unread,
Sep 29, 2010, 11:02:52 AM9/29/10
to Comunidad de Visual Foxpro en Español
Para que funcione correctamente debes tener abierto el puero 587 para
el envio de correos.
Por lo general la mayoria de los proveedores de servico de intenet lo
tienen abierto
o en su caso configurar el proxy o modem o firewall para que permitan
la salida de
los correos.

Hago un atento llamado a todos los miembros del foro para ver quien se
apunta para
aportar los seriales del componente 'Chilkat.MailMan2'

-------------------------------------------------------------------------------------------
* Halcón Divino.
*---------------------
* Programa VFP 6.0 para enviar correos electronicos (eMail) desde
GMail o HotMail
* usando el Componente ChilKat MailMan2
*
* Descarga el componente
* Chilkat Email ActiveX (POP3/SMTP) • v8.0.0 • 30-July-2010
* http://www.chilkatsoft.com/downloads_ActiveX.asp
*

LOCAL Mailman
LOCAL email

Mailman = CreateObject('Chilkat.MailMan2')
email = CreateObject("Chilkat.Email2")

Mailman.UnlockComponent("Anything for 30-day trial")
Mailman.SmtpSsl = 1 && el 1 significa que debe de utilizar
autenticación
Mailman.SmtpPort = 587 && este es el puerto que utilizará para el
env{io en smtp

* usando H O T M A I L
Mailman.SmtpHost = "smtp.live.com" && este es el servidor smtp de
hotmail
Mailman.SmtpUsername = "cuenta...@hotmail.com" && usuario de smtp,
cuenta de correo de hotmail de donde se enviaran los correos
Mailman.SmtpPassword = "XXXXXXXXX" && contraseña de la cuenta de
correo de hotmail de donde se enviaran los correos

* usando G M A I L
*Mailman.SmtpHost = "smtp.gmail.com" && este es el servidor smtp de
gmail
*Mailman.SmtpUsername = "cuenta...@gmail.com" && usuario de smtp,
cuenta de correo de gmail de donde se enviaran los correos
*Mailman.SmtpPassword = "XXXXXXXXX" && contraseña de la cuenta de
correo de gmail de donde se enviaran los correos
*email.From="<cuenta...@gmail.com>"

email.From="<cuenta...@hotmail.com>"
email.AddTo("Juan Perez", "jpe...@telmex.Com")
email.AddTo("Pedro Sanchez", "pSan...@pemex.Com")

email.AddFileAttachment ("C:\factura.xml")
email.AddFileAttachment ("C:\factura.pdf")
email.AddFileAttachment ("C:\Reporte.xls")

email.subject = "Esta es una prueba"
email.Body = "Correo de prueba enviado con componente chilkat con un
programa VFP"

mError = mailman.SendEmail(email)

If (mError = 0) Then
MESSAGEBOx (mailman.LastErrorText)
Else
MESSAGEBOx("Correo enviado!")
EndIf

Return

Hago un atento llamado a todos los miembros del foro para ver quien se
apunta para
aportar los seriales del componente 'Chilkat.MailMan2'


Saludos
Halcón Divino
Monterrey, México

Armando Rodríguez

unread,
Sep 29, 2010, 11:51:30 AM9/29/10
to zorrosm...@googlegroups.com, publice...@googlegroups.com
Haz probado el envío de correos con CDO o jMail ?

Revisa este artículo de Luis María Guayan
http://www.portalfox.com/index.php?name=News&file=article&sid=2626&mode=nest
ed&order=0&thold=0

y este otro de Victor Espina para envíos por jMail.
http://www.portalfox.com/index.php?name=News&file=article&sid=2193

Yo he probado ambos y funcionan perfecto.

Saludos
Armando Rodríguez

-----Mensaje original-----
De: zorrosm...@googlegroups.com
[mailto:zorrosm...@googlegroups.com] En nombre de Halcón Divino
Enviado el: Miércoles, 29 de Septiembre de 2010 09:58 a.m.
Para: Zorrosmexicanos
Asunto: Enviar correos electronicos (eMail) desde GMail o HotMail usando VFP
y el componente ChilKat

LOCAL Mailman
LOCAL email

mError = mailman.SendEmail(email)

Return

--
Has recibido este mensaje porque estás suscrito al grupo "Zorrosmexicanos"
de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a
zorrosm...@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a
zorrosmexican...@googlegroups.com
Para tener acceso a más opciones, visita el grupo en
http://groups.google.com/group/zorrosmexicanos?hl=es.


Reply all
Reply to author
Forward
0 new messages