Sub Initialize()
On Error GoTo a
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.Currentdatabase
'定义当前数据库的ACL
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set acl = db.ACL
Set entry = acl.GetFirstEntry
'循环查找当前数据库中的entry(就是Default那一栏的都是entry)
While Not (entry Is Nothing)
'如果找到的其中一个entry的角色是“[管理员]”的则执行:
If (entry.isroleenabled("[管理员]")) Then
'找到角色为管理员的用户然后进行相关的操作
End If
Set entry = acl.getnextentry(entry)
Wend
Exit Sub
a:
MsgBox "错误在代理agent_acl的第" & Erl & "行,描述:---" & Error
End Sub