例: GetEmbeddedObject method

次のスクリプトは、リッチテキストアイテム 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

次のアクションスクリプトは上記のスクリプトと似ています。ただし、埋め込みオブジェクト 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
```