Here’s my objective: I’d like to open a memo, and upon closing, have it be moved from the Inbox to a “Read Msgs” folder. This is so multiple people using the database will know whether or not a document has already been read. In the QueryClose event, I have the following script, just below the Call Source.QueryClose(Continue) line that comes in the template:
Call cMemoObject.QueryClose(Continue)
Dim uiws As New NotesUIWorkspace
Call source.document.PutInFolder(“Read msgs”)
Call source.document.RemoveFromFolder(“Inbox”)
Print “Memo moved to ‘Read msgs’; removed from ‘Inbox’.”
Problem is that the message doesn’t get removed from the Inbox folder. Also (the code is not shown), but I tried doing a refresh of the view, but in the QueryClose event was not able to get a handle to the ws.CurrentView object.
Any suggestions?