例: IsProfile property (NotesDocument - LotusScript®)

次の例は、プロフィール文書のプロパティを表示します。

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