Examples: Remove method (NotesEmbeddedObject - LotusScript®)

This script removes the "City picture" embedded object from the Body item in a document.

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