LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim session As New NotesSession Dim db As NotesDatabase Dim acl As NotesACL Dim entry As NotesACLEntry Dim levelString As String Dim levelConstant As Integer Set uidoc = workspace.CurrentDocument Set db = session.CurrentDatabase Set acl = db.ACL levelString = Inputbox$( "What level?" ) ' function call to convert the string ' into an ACLLEVEL constant levelConstant = GetLevelConstant( levelString ) ' go through all the entries in the ACL Set entry = acl.GetFirstEntry While Not ( entry Is Nothing ) ' if the entry has the level that the user chose If ( entry.Level = levelConstant ) Then ' append the entry's name to the text list ' in the People field Call uidoc.FieldAppendText _ ( "People", entry.Name & "; " ) End If Set entry = acl.GetNextEntry( entry ) Wend ' refresh current document so that ' text list displays nicely Call uidoc.Refresh End Sub Function GetLevelConstant( desiredLevel As String ) Dim levelConstant As Integer Select Case desiredLevel Case "Manager": levelConstant = ACLLEVEL_MANAGER Case "Designer": levelConstant = ACLLEVEL_DESIGNER Case "Editor": levelConstant = ACLLEVEL_EDITOR Case "Author": levelConstant = ACLLEVEL_AUTHOR Case "Reader": levelConstant = ACLLEVEL_READER Case "No Access": levelConstant = ACLLEVEL_NOACCESS End Select GetLevelConstant = levelConstant End Function