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
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary