Make users give you access to mail files

What happens when you've forgotten to give the Admin group access to mail files, and you have 3000 or so to manipulate? Here's some code that goes into the Database Script/Post Open event, if you can wait for the user to close and reopen their mail (or if you really are in a hurry, in the Memo Post Open event.) I have the code in a library, but it works equally well in the actual event.

The code checks for the entry, the level of the entry, and the type of entry, in case a user is clever enough to make the Admin group a person type.

This is implemented through the mail template, and deployed through the Design task.

Sub SetNotesAdmin()
'dim db as the current file, the code runs in the context of the user.
'dim acl as NotesACL
'dim aclEntry as NotesACLEntry

If ( db.CurrentAccessLevel <> ACLLEVEL_MANAGER ) Then
   ' Don't do anything if this user doesn't have Mgr access

Else
   Set acl = db.ACL
   Set entry = acl.GetEntry( "AdminGroup" )
   ' Check if Admin group is in the ACL
   If entry Is Nothing Then
   'Add the proper Admin group to ACL as Mgr
      Set entry = New NotesACLEntry ( acl, "AdminGroup", ACLLEVEL_MANAGER )
      Call acl.Save

   Else
   'Check to if the user has bumped down the access level for the Admin group

      If entry.Level <> ACLLEVEL_MANAGER Then
entry.Level = ACLLEVEL_MANAGER
      Call acl.Save
      End If 

      If entry.UserType <> ACLTYPE_PERSON_GROUP Then
entry.UserType = ACLTYPE_PERSON_GROUP
      Call acl.Save
      End If
   End If 
End If
End Sub