LOTUSSCRIPT/COM/OLE CLASSES
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
See Also