HCL Domino - Examples: NotesACLEntry class - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: NotesACLEntry class
1. This script uses New to give Shelly McPhail Editor access to a database.

Dim db As New NotesDatabase _ ( "Quito", "data\discuss.nsf" ) Dim acl As NotesACL Set acl = db.ACL Dim person As New NotesACLEntry _ ( acl, "Shelly McPhail/East/ACME", ACLLEVEL_EDITOR ) Call acl.Save

2. This script uses New to give Bill Ehrhardt Designer access to a database. It also creates a new role, called Project Leader, and enables the role for Bill.

Dim db As New NotesDatabase _ ( "Quito", "data\discuss.nsf" ) Dim acl As NotesACL Set acl = db.ACL Call acl.AddRole( "Project Leader" ) Dim leader As New NotesACLEntry _ ( acl, "Bill Ehrhardt/East/ACME", ACLLEVEL_DESIGNER ) Call leader.EnableRole( "Project Leader" ) Call acl.Save

3. This script uses New to add the "Terminations" group to the current database, and assign it No Access.

Dim session As New NotesSession Dim db As NotesDatabase Dim acl As NotesACL Dim entry As NotesACLEntry Set db = session.CurrentDatabase If Not ( db.IsOpen ) Then Call db.Open( "", "" ) End If Set acl = db.ACL Set entry = New NotesACLEntry _ ( acl, "Terminations", ACLLEVEL_NOACCESS ) Call acl.Save

See Also

NotesACLEntry class

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents