Enviar correos electronicos (eMail) desde GMail o
Publicado por Halcón Divino (20 intervenciones) el 29/09/2010 17:20:38
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 = "[email protected]" && 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 = "[email protected]" && 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="<[email protected]>"
email.From="<[email protected]>"
email.AddTo("Juan Perez", "[email protected]")
email.AddTo("Pedro Sanchez", "[email protected]")
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
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 = "[email protected]" && 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 = "[email protected]" && 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="<[email protected]>"
email.From="<[email protected]>"
email.AddTo("Juan Perez", "[email protected]")
email.AddTo("Pedro Sanchez", "[email protected]")
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
Valora esta pregunta
0