We recently had a client request a Web Application that would restrict access to the application, while at the same time having all documents submitted in the database be anonymous. While searching Notes.net we notice similar requirements, but lengthy solutions. The code is quite simple and you put it into an agent that is called from the WebQuerySave event on the form being submitted. The code then adds the $anonymous field, while removing the $UpdatedBy field.
Sub Initialize Dim session As NotesSession Set session = New NotesSession Dim doc As NotesDocument Set doc = session.DocumentContext doc.~$Anonymous = "1" End Sub
This was first published in June 2001