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

関連項目

ValueLength プロパティ

用語集