HCL Domino - Examples: NotesEmbeddedObject class - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

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

See Also

NotesEmbeddedObject class

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents