LOTUSSCRIPT /COM/OLE のクラス

例:Source プロパティ
次のスクリプトは、文書の Body アイテムに「City picture」オブジェクトを作成したアプリケーションのソースを取得して sourceName に代入します。たとえば、Source プロパティは「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

関連項目