例: GetProfileDocument method

次の例は、現在のユーザーに応じた「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"