COMO MARCAR UN CORREO COMO LEIDO

111 views
Skip to first unread message

Javier Bernal

unread,
Apr 14, 2020, 10:28:33 PM4/14/20
to Comunidad de Visual Foxpro en Español
Aquí de nuevo, con la comunidad de Foxilandia, hoy solicito apoyo, para ver si alguien ha logrado marcar un correo de outlook, como leído.

No tengo problema para detectar si ya abrieron el correo por la aplicación, estoy tratando de crear una aplicación automatizada para outlook y voy en esa etapa de marcar el correo como leído.

Se que puedo crear una base de datos agregar los correos y ahí verificar si ya leí el correo, pero yo quiero marcar el que esta en la plataforma de outlook.

Espero sus comentarios y aportaciones.

Gracias y Saludos

HernanCano

unread,
Apr 15, 2020, 12:18:35 AM4/15/20
to Comunidad de Visual Foxpro en Español

Javier Bernal

unread,
Apr 15, 2020, 4:33:00 PM4/15/20
to Comunidad de Visual Foxpro en Español
Buen Dia, ya revise los link, no encontré lo que busco, el email tiene un status en este campo UnRead, que es F o T, verdadero no se abierto, esto lo quiero marcar a F, cuando abro el emai y bajo los archivos adjuntos.

Gracias por tu aporte

Zen Tes

unread,
Apr 16, 2020, 5:04:38 PM4/16/20
to Comunidad de Visual Foxpro en Español


*Check for unread messages in the Inbox
*Compruebe si hay mensajes no leídos en la Bandeja de entrada
Function mail_not_read
Local oOutlookObject,olNameSpace
#Define olFolderInBox 6
oOutlookObject = Createobject('Outlook.Application')
olNameSpace = oOutlookObject.GetNameSpace('MAPI')
oItems= olNameSpace.GetDefaultFolder(olFolderInBox).Items
For Each loItem In oItems
?loItem.unRead 
    If loItem.unRead 
       *Do something here
       loItem.unRead = .F. && <----  Mark it as read
    Endif
Next
Return

Javier Bernal

unread,
Apr 16, 2020, 5:16:27 PM4/16/20
to Comunidad de Visual Foxpro en Español
ok, lo voy a revisar y te informo el resultado, quedo pendiente
Reply all
Reply to author
Forward
0 new messages