Examples: Class property

This script gets the name of the application used to create the "City picture" object in the Body item of a document, and puts it into className. For example, if the object was created with Visio, the Class property returns "Visio.Drawing"; if the object was created with Word Pro®, the Class property returns "WordPro.Document".

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