LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Set db = session.CurrentDatabase profileName = Inputbox("Profile name?") profileUserName = Inputbox("User name (key)?") Set doc = db.GetProfileDocument(profileName, profileUserName) If doc.IsProfile Then Messagebox "Profile name: " & doc.NameOfProfile & _ Chr(10) & _ "User name (key): " & doc.Key,, doc.NameOfProfile End If
See Also