Domino Code Fragment

Code Name*
Examples: EnableRole method for multiple users.		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.221.13.173
Description*
This sub enables one role for multiple people in an ACL. Its parameters are a NotesACL object, the name of the role to enable, and an array of strings that represent user names.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
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