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" )