Examples: ValueLength property

This agent gets the internal lengths of all the items in the current document.

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