LOTUSSCRIPT/COM/OLE CLASSES

Examples: FitToWindow
This example sets the properties of the first embedded object on the currently selected document in the current view to FitToWindow, which means that when the object is activated (when the document is put in edit mode), the first embedded object fills the entire window.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim obj As Variant
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 Set doc = dc.GetFirstDocument
 obj = doc.EmbeddedObjects
  obj(0).FitToWindow = True
 Call doc.Save(True, True, True)
End Sub

See Also