LOTUSSCRIPT/COM/OLE CLASSES

Examples: NameObject property
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

See Also