Examples: NotesACL class

  1. This script gets the ACL for a database on server Maputo, and uses the GetFirstEntry method to find the first entry in its ACL.
    Dim db As New NotesDatabase("Maputo", "notefile\none.nsf")
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set acl = db.ACL
Set entry = acl.GetFirstEntry
  2. This script gets the ACL for the current database, and uses GetEntry to find Dyetra Jones in its ACL.
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( "Dyetra Jones" )