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