例: RemoveACLEntry method

次の Visual Basic コードは EntryName テキストボックスで指定された ACL エントリを削除します。

Private Sub ACLRemove_Click()
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Dim acl As NotesACL
Set dir = s.GetDbDirectory("")
Set db = dir.OpenDatabase("Web test")
Set acl = db.acl
If acl.GetEntry(SessionForm.EntryName) Is Nothing Then
  MsgBox SessionForm.EntryName, , "Entry does not exist"
Else
  Call acl.RemoveACLEntry(SessionForm.EntryName)
  Call acl.Save
End If
End Sub