LOTUSSCRIPT/COM/OLE CLASSES

Examples: FitBelowFields property
This example sets the properties of the first embedded object on the currently selected document in the current view to FitBelowFields, which means that when the object is activated (when the document is put in edit mode), the first embedded object displays beneath the first layout section of the form.

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).FitBelowFields = True
 Call doc.Save(True, True, True)
End Sub

See Also