LOTUSSCRIPT /COM/OLE のクラス
例:GetEmbeddedObject メソッド
1. 次のスクリプトは、リッチテキストアイテム Body を文書内で検索し、GetEmbeddedObject を使用して Body アイテムに埋め込みオブジェクト「Jim」が含まれているかどうかをチェックします。その後、Jim が含まれているかどうかを通知するメッセージを表示します。
Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Set object = rtitem.GetEmbeddedObject( "Jim" )
If ( object Is Nothing ) Then
Messagebox( "Unable to find an object named Jim" )
Else
Messagebox( "Found an object named Jim" )
End If
End If
2. 次のアクションスクリプトは上記のスクリプトと似ています。ただし、埋め込みオブジェクト Eben を取得し、NotesEmbeddedObject の Activate メソッドを使用して、Eben が作成されたアプリケーションを起動する点が異なります。スクリプトはクライアント上で実行されるため、スクリプトはアプリケーションのユーザーインターフェースを表示できます。
Sub Click(Source As Button)
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
Dim handle As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Set object = rtitem.GetEmbeddedObject( "Eben" )
If Not ( object Is Nothing ) Then
Set handle = object.Activate( True )
End If
End If
End Sub
関連項目
GetEmbeddedObject メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集