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:
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:


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