LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目