Examples: EmbeddedObjects property (NotesDocument - LotusScript)

• A Word Pro embedded object called "Word Pro Document" in the Body item
• A Microsoft Excel object link called "MS Excel Worksheet" in the Body item
• An Ami Pro embedded object, created in Notes Release 3, called "Ami Pro Document" in the Body item
• A file attachment called "CASTLE.BMP" in the Body item
• A Freelance Graphics embedded object called "Freelance Presentation" in the Description item
• A 1-2-3 embedded object called "123 Worksheet" that is embedded on the form used to create the document, and has been subsequently activated and edited by a user

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

This script displays the following:

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

EmbeddedObjects does not return the Ami Pro document because the object was created in Notes Release 3. It does not return castle.bmp because castle.bmp is a file attachment.