LOTUSSCRIPT/COM/OLE CLASSES
Dim doc As NotesDocument Dim rtitem As Variant Dim object As NotesEmbeddedObject '...set value of doc... Set rtitem = doc.GetFirstItem( "Body" ) If ( rtitem.Type = RICHTEXT ) Then Set object = rtitem.GetEmbeddedObject( "City picture" ) Call object.Remove Call doc.Save( True, True ) End If
See Also