This is very useful, to check that a database has the documents, to update the content of the documents (using the $Body field) to a set administrative /confidentiality message etc.
About Database document NoteID is FFFF0002
Using Database document NoteID is FFFF0100
Another useful practice is to set the $PublicAccess field of the documents to "1" this will allow you
to put No Access, and read public documents as default to all users, but this will mean that the users will
be able to see who controls the access to the database, by looking at Help->About Database.
'Code from http://www.notesninjas.com Dim s As New notessession
Dim db As notesdatabase Set db = s.currentdatabase Dim doc As notesdocument Set doc = db.getdocumentbyid("FFFF0002") If doc Is Nothing Then Msgbox "No About document" Else Dim i As notesitem Set i = New notesitem(doc, "$PublicAccess", "1") Call doc.save(True,True) End If
Stick this code in a button in your database. Tweet