Domino Code Fragment

Code Name*
Examples: EnableRole method for a single user		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.129.70.157
Description*
This script enables the Auditor role for Bill Ehrhardt, in the database DISCUSS.NSF.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
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" )
Call entry.EnableRole( "Auditor" )
Call acl.Save