Examples: NotesEmbeddedObject class

The following two scripts demonstrate the differences between accessing objects using the EmbeddedObjects property in NotesDocument and NotesRichTextItem. Both scripts access the last document in the All Documents view of HILL.NSF on the server SanFrancisco.

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