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

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

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

NotesEmbeddedObject class

Glossary