LOTUSSCRIPT /COM/OLE のクラス

例:GetProfileDocument メソッド
次の例は、現在のユーザーに応じた「Interest Profile」プロフィール文書を取得し、その文書からアイテムを表示します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim profileAuthors As NotesItem
Dim profileStrings As NotesItem
Dim stringAuthors As String
Dim stringStrings As String
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("Interest Profile", _
session.UserName)
Set profileAuthors = doc.GetFirstItem("ProfileAuthors")
Set profileStrings = doc.GetFirstItem("ProfileStrings")
stringAuthors = ""
stringStrings = ""
Forall profileAuthor In profileAuthors.Values
 stringAuthors = stringAuthors & Chr(10) &profileAuthor
End Forall
Forall profileString In profileStrings.Values
 stringStrings = stringStrings & Chr(10) &profileString
End Forall
If stringAuthors = "" Then
 stringAuthors = "None"
Else
 stringAuthors = Right _
 (stringAuthors, Len(stringAuthors) - 1)
End If
If stringStrings = "" Then
 stringAuthors = "None"
Else
 stringStrings = Right _
 (stringStrings, Len(stringStrings) - 1)
End If
Messagebox stringAuthors,, "Profile authors"
Messagebox stringStrings,, "Profile strings"

関連項目