IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

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

---

Library | Support | Terms of use |

Last updated: Monday, October 5, 2009