Examples: Name property (NotesEmbeddedObject - LotusScript®)

This script gets the name of the "City picture" object in the Body item of a document, and puts it into objectName. The Name property returns "City picture."

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