Clase diseñada para enviar mail desde FoxPro 9.0

[Rafael Morales]

Hola, Alguien conoce alguna clase que permita enviar mail dede VFP 9.0  ?, La clase FoxyPreviewer280  permite enviar Reportes por correo electronico, pero yo necesito una clase que me permita enviar un archivo con extensión .ZIP ó .RAR a varios destinos, desde FoxPro utilizando una cuenta de Gmail. Si alguien conoce alguna clase que permita realizar esta tarea le agradeceria que lo compartiera.
--
Rafael

[Pablo Daniel]

Rafael:

Hola. Hace tiempo, cuando estaba buscando lo mismo, probé con
MAPIMAIL. Luego, encontré CDO, un componente COM, que, en mi caso, me
funcionó satisfactoriamente y mejor que MAPIMAIL, ya que esta clase
tenía ciertas cuestiones muy acopladas con el cliente de correos
instalado en el sistema que no supe como arreglar, como, por ejemplo,
que mostraba un mensaje avisando que un programa externo quería enviar
un mail cada vez que lo intentaba.

En fin, tengo implementado CDO y me funciona correctamente. Mi
documento guía fue uno de los artículos que publicó Luis María Guayán
en portalfox. Dejo el link:

http://www.portalfox.com/index.php?name=News&file=article&sid=2626&mode=nested&order=0&thold=0

Éxitos.
--------------------------------------------------------------------------------------------------------------------------------

[morellato chipichape]

Funciona Perfectamente, Inclusive para Visual fox 6, quitando el try, y lo que corresponde a vfp9, Muchas Gracias

Jaime Matheus

[Hernan Serrano]

Hay un ejemplo muy bueno utilizando CDO, en portalfox.

--
Tico Support S. A.
Tel. (506)8872-6170

[Carlos Leon]

Excelente, rápido y efectivo, agradecido por la rutina, saludos

[Jairo Miranda]

Es posible  utilizando la clase CDO o Mapi, Mapimail . para enviar esos correos y sus adjuntos a una bandeja predeterminada de Outlook  para después enviarlos uno a uno? , o si alguien sabe como hacerlo desde visualfox usando el foxypreviever.  el proceso seria el siguiente:

1. se genera el archivo con foxypreviewer en la presentaciòn preliminar, (se imprime)

2. se genera el archivo en PDF en una carpeta c:\correos  ejm  .20012125.pdf

3. Se envia al outlook con su adjunto (.20012125.pdf).  (habre una session de envio por outlook) o si se puede hacer directamemente , mejor. 

Cualquier idea .. Gracias.

JM 

[Rafael Morales]

Perfecto, Gracias, funciona de maravilla.

[Jairo Miranda]

[Jorge Carazzo]

Estimado, al igual que el compañero Pablo, yo también implemente CDO, desde un ejemplo que me paso Luís Maria.

Te paso el código, el cual toma los datos de una tabla " cur_reclamo", que tiene los datos.

Yo uso un servidor de yahoo, pero el email sale desde una cuenta mia.

email=cur_reclamo.email

asunto = 'Reclamo automatizado de saldos pendientes '

mensaje = 'Estimado cliente, '+ ALLTRIM(cur_reclamo.cliente)+' su cuenta registra al día de la fecha, las siguientes deudas :'+CHR(13)+CHR(10)+CHR(13)+CHR(10) +;

cur_reclamo.fecha+' / '+ALLTRIM(cur_reclamo.numero)+' / '+ STR(cur_reclamo.importe,8,2)+ CHR(13)+CHR(10)+CHR(13)+CHR(10)+ ;

'DESCRIPCION: '+CHR(13)+CHR(10)+;

desgloce + CHR(13)+CHR(10)+ CHR(13)+CHR(10)+ ;

'Datos de Depósito: ' + CHR(13)+CHR(10)+ ;

'Destinatario: XXXXXXXXXXXX' + CHR(13)+CHR(10)+ ;

'Banco: XXXXXXXXXXXXXXXX' + CHR(13)+CHR(10)+ ;

'CBU destino: XXXXXXXXXXXXXXX' + CHR(13)+CHR(10)+ ;

'Caja de Ahorro: XXXXXXXXXX' + CHR(13)+CHR(10)+ ;

'CUIT/CUIL/CDI/Documento: XXXXXXXXXXX' + CHR(13)+CHR(10)+ CHR(13)+CHR(10)+ ;

'Estimado Cliente, si usted tiene estas cuentas saldadas, tenga a bien, desestimar el presente correo'+CHR(13)+CHR(10)+CHR(13)+CHR(10)+;

'Un saludo cordial'

***********************************************************************************************************************************

loCfg = CREATEOBJECT("CDO.Configuration")

WITH loCfg.Fields

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.yahoo.com.ar"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

.Update

ENDWITH

WITH loCfg.Fields

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.

.Update

ENDWITH

　

loMsg = CREATEOBJECT ("CDO.Message")

WITH loMsg

.Configuration = loCfg

.From = "email que envía el mensaje"

.To = email

.Subject = asunto

.TextBody = mensaje

.Send()

ENDWITH