例: EnableRole method

次のスクリプトはデータベース DISCUSS.NSF で、Bill Ehrhardt の [Auditor] ロールを有効にします。

Dim db As New NotesDatabase _
("Reykjavik", "data¥discuss.nsf")
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set acl = db.ACL
Set entry = acl.GetEntry( "Bill Ehrhardt/East/ACME" )
Call entry.EnableRole( "Auditor" )
Call acl.Save

次のサブルーチンは、ACL で複数のユーザーに対して 1 つのロールを有効にします。パラメータは NotesACL オブジェクト、有効にするロールの名前、ユーザーの名前を表す string 型の配列です。

Sub enablePeople( acl As NotesACL, _
role As String, names As Variant )
  Dim person As NotesACLEntry
  Forall n In names
    Set person = acl.GetEntry( n )
    If ( person.Level = ACLLEVEL_NOACCESS ) Then
      Set person = New NotesACLEntry _
      ( acl, n, ACLLEVEL_AUTHOR )
      Call acl.Save
    End If
    Call person.EnableRole( role )
  End Forall
  Call acl.Save
End Sub