RE:Correo usando una tabla de datos
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.