LOTUSSCRIPT /COM/OLE のクラス

例: Name プロパティ
次のスクリプトは文書の Body アイテムにある「City picture」オブジェクトの名前を取得して、objectName に代入します。Name プロパティは「City picture」を返します。

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

関連項目