例: ValueLength property

次のエージェントは現在の文書のすべてのアイテムの内部の長さを取得します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  Forall item In doc.Items
    msg$ = msg$ & item.Name & " = " & item.ValueLength & Chr(10)
  End Forall
  Messagebox msg$,, "Internal item lengths of current document"
End Sub