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