FoxPro/Visual FoxPro - Correo usando una tabla de datos

Tengo una tabla de datos, en un campo tengo la direccion de correo y en el otro campo tengo el nombre del archivo adjunto (con el Path)
Existe alguna forma de enviar automaticamente todos estos archivos adjuntos a los respectivos destinatarios señalados en la tabla de datos ?
Dese ya os agradezco,

TITO

Saludos,

TITO,

Mira, me dices que tienes una tabla con la direcciony en el otro campo el nombre del archivo como path.

Bueno esta facil

Tabla1 = tabla en donde estan los datos

campo1 = direccion
campo2 = Path

*ThisForm.txtperiodo11.VALUE = FECHA ENVIO && ESTO ES OPCIONAL

*oMail.send && si pones esto en comentario mas abajo pues tienes que darle a *enviar a cada uno de lo contrario los enviara todos al mismo tiemppo, claro uno *tras el otro en la secuencia que esten grabados.


SELECT TABLA1
GO TOP

DO WHILE !EOF()
STORE (tabla1.campo1) to mail
STORE (tabla1.campo2) to patharchivo

oOutlook = CREATEOBJECT("outlook.application")
oMail=oOutlook.createitem(0)
oMail.Subject="AQUI LE PONES EL ASUNTO"+TRANSFORM(ThisForm.txtperiodo11.Value,'99/99/9999')
oMail.body = "AQUI PONES LO QUE QUIERAS :"+TRANSFORM(ThisForm.txtperiodo11.Value,'99/99/9999')
oMail.attachments.ADD("&patharchivo")
oMail.to = mail
oMail.Display
oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook
ThisForm.Release

SELECT tabla1
SKIP
IF EOF()
EXIT
ENDIF
ENDDO

Si te funciona no dejes de escribir por esta misma via, el resultado de esto para que los que vean esta sulucion se den cuenta de que si funciona.

PD:
Esto te cuesta una botella de JW etiqueta azul
jajajja es broma ok.

att.

Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.

Saludos TITO,

En otras ocaciones alguien te a dado la ayuda, e visto, pero no contestas si resolviste o que? eso deja mucho que decir, si funciona o no lo que se te aconseja que hagas.

Lo que te pido es lo siguiente:

Contesta cada vez que alguien te ayude con algo asi se nada mas mira gracias.

att.
Antonio R. Moquete Mejia
Santo Domingo Rep. Dom