LOTUSSCRIPT/COM/OLE CLASSES

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

See Also