Examples: NotesEmbeddedObject class

The document 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

1. This script uses the EmbeddedObjects property in NotesDocument, and displays the following:

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

  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
  Forall o In doc.EmbeddedObjects
    Messagebox( o.Name )
  End Forall

2. This script uses the EmbeddedObjects property in NotesRichTextItem, and displays the following:

• "Word Pro® Document"
• "MS Excel Worksheet"
• "Ami Pro Document"
• "" (represents the file attachment CASTLE.BMP, whose Name property is an empty string).

  Dim db As NotesDatabase
  Dim view As NotesView
  Dim doc As NotesDocument
  Dim rtitem As Variant
  Set db = New NotesDatabase( "SanFrancisco", "hill.nsf" )
  Set view = db.GetView( "All documents" )
  Set doc = view.GetLastDocument
  Set rtitem = doc.GetFirstItem( "Body" )
  If ( rtitem.Type = RICHTEXT ) Then
    Forall o In rtitem.EmbeddedObjects
      Messagebox( o.Name )
    End Forall
  End If