HCL Domino - Examples: EmbeddedObjects property - 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: EmbeddedObjects property
This script uses the EmbeddedObjects property in NotesDocument. The last document in the All Documents view of HILL.NSF 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

Sub Initialize 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 If doc.HasEmbedded Then Forall o In doc.EmbeddedObjects Messagebox( o.Name ) End Forall Else Messagebox "No embedded objects found" End If End Sub

This script displays the following:

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

EmbeddedObjects does not return the Ami Pro document because the object was created in Notes Release 3. It does not return castle.bmp because castle.bmp is a file attachment.

See Also

EmbeddedObjects property

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents