Examples: NameObject property (NotesACLEntry - LotusScript®)

This Visual Basic code adds the common name of every ACL entry to a list box.

Private Sub ACLEntryName_Click()
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Dim acl As NotesACL
Dim acle As NotesACLEntry
Set dir = s.GetDbDirectory("")
Set db = dir.OpenDatabase("Web test")
Set acl = db.acl
Set acle = acl.GetFirstEntry
While Not (acle Is Nothing)
  List1.AddItem (acle.NameObject.Common)
  Set acle = acl.GetNextEntry(acle)
Wend
End Sub