Hello. I’d like to run this by you all and see if you can help me figure something out. I have a requirement such that when a document has been rec’d in a particular shared mailbox, it must be moved to a “Read messages” folder automatically. I got that part done, by adding the following code to the PostOpen event in the Memo form:
If Not(source.IsNewDoc) Then
Call source.Document.PutInFolder(“Read messages”, True)
Call source.Document.RemoveFromFolder(“($Inbox)”)
End If
I also want it removed from the “Inbox” folder, which I’m also able to accomplish using the above code.
What I haven’t been able to figure out is how to automatically refresh the Inbox folder once the above operation is complete. I thought about putting it in the Terminate event of the Memo form, but that doesn’t seem to do the trick. Any ideas on how I may get this done? Thanks very much.
…Jack
Subject: Req’t to move msg from Inbox to “Read” folder
I am curious how you are handling users who use the preview pain of their mail file to read messaged? Will the code work there as well? If so, what about people who have previewed it and do not want it considered to be “read” yet?
Subject: RE: Req’t to move msg from Inbox to “Read” folder
File,
About the preview pane: good question. Haven’t tried that yet. If it does work, well, the idea is that whomever looks at the document makes it “Read”. Other users who view the documents don’t have a say in the matter. In case you’re curious, this requirement comes as a result of an Exchange → Domino migration. In Outlook, the read/unread table isn’t user specific. If one person reads the document, it’s considered read. Period. They are trying to get something similar to happen in Lotus Notes, and moving a document to a “Read messages” folder was the only thing I could think of.
Any ideas on how to get the view to refresh after the PostOpen event?
Subject: RE: Req’t to move msg from Inbox to “Read” folder
SOLVED…!
Calling NotesUiWorkspace.ViewRefresh in QueryClose does the trick:
Dim uiws As New NotesUIWorkspace
Call uiws.ViewRefresh
…Jack