Examples: Source property

This script gets the source of the application used to create the "City picture" object in the Body item of a document, and puts it into sourceName. For example, the Source property returns "EXT58753."

Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
Dim sourceName As String    
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Set object = rtitem.GetEmbeddedObject( "City picture" )
  sourceName = object.Source
End If