例: Class property

次のスクリプトは文書の Body アイテムにある「City picture」埋め込みオブジェクトを作成したアプリケーションの名前を取得して、className に代入します。例えば、オブジェクトが Visio で作成されたとき、Class プロパティは「Visio.Drawing」を返します。オブジェクトが Word Pro® で作成されたとき、Class プロパティは「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