Examples: EmbeddedObjects property (NotesDocument - LotusScript)

This script uses the EmbeddedObjects property in NotesDocument. The last document in the All Documents view of HILL.NSF contains the following:

  • 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
    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.