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