例: EmbeddedObjects property (NotesDocument - LotusScript)

• Body アイテムに含まれる Lotus Word Pro の埋め込みオブジェクト「Word Pro Document」
• Body アイテムに含まれる Microsoft Excel のオブジェクトリンク「MS Excel Worksheet」
• Body アイテムに含まれる、Notes R3 で作成された Lotus Ami Pro の埋め込みオブジェクト「Ami Pro Document」
• Body アイテムに含まれる添付ファイル「CASTLE.BMP」
• Description アイテムに含まれる Freelance Graphics の埋め込みオブジェクト「Freelance Presentation」
• 文書作成に使用されたフォームに埋め込まれ、その後起動、編集された Lotus 1-2-3 の埋め込みオブジェクト「123 Worksheet」

Sub Initialize
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim doc As NotesDocument
  Set db = New NotesDatabase( "SanFrancisco", "hill.nsf" )
  Set view = db.GetView( "All Documents" )
  Set doc = view.GetLastDocument
  If doc.HasEmbedded Then
    Forall o In doc.EmbeddedObjects
      Messagebox( o.Name )
    End Forall
  Else
    Messagebox "No embedded objects found"
  End If
End Sub

このスクリプトの表示内容を次に示します。

• Word Pro Document
• MS Excel Worksheet
• Freelance Presentation
• 123 Worksheet

Ami Pro オブジェクトが Notes R3 で作成されたため、EmbeddedObjects は Ami Pro 文書を返しません。また、castle.bmp は添付ファイルであるため、EmbeddedObjects は castle.bmp を返しません。