Examples: NotesACLEntry class

  1. This script uses New to give Shelly McPhail Editor access to a database.
    Dim db As New NotesDatabase _
    ( "Quito", "data\discuss.nsf" )
    Dim acl As NotesACL
    Set acl = db.ACL
    Dim person As New NotesACLEntry _
    ( acl, "Shelly McPhail/East/ACME", ACLLEVEL_EDITOR )
    Call acl.Save
  2. This script uses New to give Bill Ehrhardt Designer access to a database. It also creates a new role, called Project Leader, and enables the role for Bill.
    Dim db As New NotesDatabase _
    ( "Quito", "data\discuss.nsf" )
    Dim acl As NotesACL
    Set acl = db.ACL
    Call acl.AddRole( "Project Leader" )
    Dim leader As New NotesACLEntry _
    ( acl, "Bill Ehrhardt/East/ACME", ACLLEVEL_DESIGNER )
    Call leader.EnableRole( "Project Leader" )
    Call acl.Save
  3. This script uses New to add the "Terminations" group to the current database, and assign it No Access.
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim acl As NotesACL
    Dim entry As NotesACLEntry
    Set db = session.CurrentDatabase
    If Not ( db.IsOpen ) Then
      Call db.Open( "", "" )
    End If
    Set acl = db.ACL
    Set entry = New NotesACLEntry _
    ( acl, "Terminations", ACLLEVEL_NOACCESS )
    Call acl.Save