Users attempting to access a database for which they are not permitted access
will get a message to the effect that they are not authorized to use the
database. Want to allow them to at least be able to see the "About" document
so they can get contact information, etc.?
Here are the steps to get this to work ...
Determine the UNID of the "About" document under document properties.
Use GetDocumentByUNID in LotusScript to access the "About" document and add the
$PublicAccess field with a value of "1". Save the "about" document with the
You must also have at least one view set to public access, or the user will not
be able to view the "About" document. So, create a public access view that has
displays no documents or fields. Finally, set the ACL on the database to "Read
Dim session As New NotesSession 'Set the current Notes Session to session
Dim db As NotesDatabase 'Declare db as type NotesDatabase
Set db = session.GetDatabase("","databasenamel.nsf") 'Set db
Dim doc As NotesDocument 'Declare doc as type NotesDocument
Set doc = db.GetDocumentByUNID("85255A0A0010AC8E852558BF00737B2A")
Dim PublicAccess As New NotesItem( doc, "$PublicAccess", "1" )
That's it - someone attempting to access the database without proper
authorization can now at least read the "About" document where you can put
contact information. etc.
You can also add a button to clear the icon from the user's desktop using this
formula in a button ....
@Command([FileCloseWindow]); 'Closes the "About document
@Command([FileCloseWindow]); 'Closes the database and leaves the database icon
selected on the workspace
@PostedCommand([EditClear]) 'Deletes the icon from the workspace