Examples: FileSize property

This script gets the size of the "City picture" embedded object in the Body item of a document, and puts it into sizeInBytes. For example, FileSize might return 582.

Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
Dim sizeInBytes As Long
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Set object = rtitem.GetEmbeddedObject( "City picture" )
  sizeInBytes = object.FileSize
End If