and ending up removing themselves as manager. Unless you already implement a
policy of adding an admin group to all ACL's, If consistant ACL is set there is
no way in to correct the ACL unless you have this little feature.
Create a database locally, ensureing that there is at least one document in the
Then create an Agent with the following settings..
When should this agent be run? - On Schedule Hourly, and click the schedule
button to decrease the waiting time to 30 minutes.
Which Documents should it act on? - All documents in the database
Then in the design pane below, click on Script and then choose Initialise from
the Event drop down box.
Paste the following text in to this pane.
Dim db As NotesDatabase
Dim dbACL As NotesACL
Dim dbACLEntry As NotesACLEntry
'Set db = New NotesDatabase("", "mail\yyy.xxx") Replace yyy.xxx in the
line below with the correct filename
Set db = New NotesDatabase("", "mail\yyy.xxx.nsf")
Set dbACL = db.ACL
'Set dbACLEntry = New NotesACLEntry(dbACL, "ACLENTRY", ACLLEVEL_MANAGER)
Replace ACLENTRY in the line below to the entry you want added to the ACL
Set dbACLEntry = New NotesACLEntry(dbACL, "ACLENTRY", ACLLEVEL_MANAGER)
Then save the agent.
When the time arises to use this code, you must switch to the server id of the
server which the server is going to run on. Edit the schedule to change the
server name to run on and change the filename of the database to run again.
Then switching back to your Admin ID replicate the database to the server.
After 5 minutes the ACL will have the new value in the ACL.
This was first published in November 2000