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