Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
Call acl.AddRole( "HR Contact" )
Call acl.Save

In order to use the constants associated with the Messagebox function, this script must include the file LSCONST.LSS.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim newName As String    
Dim confirm As Integer
Set db = session.CurrentDatabase
Set acl = db.ACL
newName = Inputbox$ _
( "Who do you want to add?", "Name" )    
Set entry = New NotesACLEntry _
( acl, newName, ACLLEVEL_AUTHOR )
confirm = Messagebox _
( "Are you sure?", MB_YESNO, "Confirm" )
If ( confirm = IDYES ) Then
 Call acl.Save
End If

See Also

Save method

Glossary