例: Verbs property

次のスクリプトは文書の Body アイテムにある「City picture」埋め込みオブジェクトに関連する verb を表示します。例えば、スクリプトは「Edit」と「Open」を表示します。

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( "City picture" )
  Forall v In object.Verbs
    Messagebox( v )
  End Forall
End If