LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsProfile property
This example displays the properties of a Profile document.

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