例: FileSize property

次のスクリプトは文書の Body アイテムにある埋め込みオブジェクト「City picture」のサイズを取得して、sizeInBytes に代入します。例えば、FileSize は 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