LOTUSSCRIPT/COM/OLE CLASSES
Private Sub DbParent_Click() Dim s As New NotesSession s.Initialize Dim db As NotesDbDirectory Set db = s.GetDbDirectory("") MsgBox db.Parent.UserName, , "Parent user name" End Sub
See Also