LOTUSSCRIPT/COM/OLE CLASSES

Examples: RemoveACLEntry method
This Visual Basic code removes the ACL entry specified by the EntryName text box.

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

See Also