LOTUSSCRIPT /COM/OLE のクラス

例:Class プロパティ
次のスクリプトは文書の 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

関連項目