Emailing an acl

HCL Domino Domino Forum
1

I am always having to email database users of the changes that are made to databases and wanted to know if it was possible to email an acl? I am wanting to select the acl and create an email from my inbox?

Any help would be appericated!

2

Subject: emailing an acl

Some questions for you. Why do users need to know about changes to the ACL? Are users explicitly listed? If so, why are you not using groups and roles and modifying the groups as needed?

3

Subject: emailing an acl

Yep, you can do that.File-Database-Design Synopsis

Select Choose DB info and click Access list

That’s it. No you can forward the doc

Regards

Marc

4

Subject: An option!

Use this code to members of the ACL and then prepare memo to all.

To retrieve all the entries in a database’s ACL, you must use the NotesACL class, the NotesACLEntry class, and the methods GetFirstEntry and GetNextEntry. The NotesACL class makes the entire ACL available for use. The NotesACLEntry class makes the individual entry names available for retrieval. GetFirstEntry retrieves the first name in the ACL list, and GetNextEntry proceeds down the list to the next name.

Dim session As New NotesSession		'Declare session as a new Notes session

 Dim db As NotesDatabase			'Declare db as a NotesDatabase

 Dim dbACL As NotesACL			'Declare dbACL as the Notes Database ACL

 Dim ACLNames As NotesACLEntry		'Declare dbACLEntry as ACL Entry type

 Dim Names() As Variant			'Declare Names as type variant

 Dim ACLRoles As Variant			'Declare ACLRoles as type variant

 Set db = session.CurrentDatabase		'Set DB to the currently selected database

 Set dbACL = db.ACL				'set dbACL to the ACL of the currently selected database

 Set ACLNames = dbACL.GetFirstEntry		'Use the NotesACL method to retrieve the first name in the ACL

 While Not (ACLNames Is Nothing)		'Loop while there is still a name in the ACLNames variable

      Redim Preserve Names(I)			'Redim Names to  I elements while preserving existing entries

      Names(I) = ACLNames.Name		'Set the value of Names(I) to the current ACL Name

      I = I + 1					'Increment I

      Set ACLNames = dbACL.GetNextEntry(ACLNames)	'Get the next ACL entry

 Wend

 Forall People In Names			'For all the entries in Names ..

      Messagebox People			'Display the name in Names() to the user

 End Forall