We cluster our mail servers and our users access their mail through their notes client, web mail access and iNotes web access. As unread marks are still not reliable across clustered replicas, etc., we are trying to come up with another solution.
My thought is to turn off unread marks completely in mail files and code something to set a field ReadStatus to “Read” or “Unread” then show this in a column as an icon, giving users a button they could use to switch the status, if so desired.
Adding this code to the QueryOpen event of the Memo form only gives limited results (it works on some documents, not others:
Dim CurrentSession As New NotesSession
Dim doc As NotesDocument
Set doc = Source.Document
doc.ReadStatus="Read"
Call doc.Save(True,False)
Similar code in WebQueryOpen worked even less reliably.
The tricky part is, of course, that the documents may just be opened for reading, not editing.
Has anyone coded something like this before and would you be willing to share code examples?
Thanks for any input,
Jeff Dayton, PCLP, CLI