LOTUSSCRIPT/COM/OLE CLASSES

Examples: ColumnCount property
This agent gets the first or only table in the Body field of the current document and displays its column count.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 Dim dc As NotesDocumentCollection
 Set dc = db.UnprocessedDocuments
 Dim doc As NotesDocument
 Set doc = dc.GetFirstDocument
 Dim rti As NotesRichTextItem
 Set rti = doc.GetFirstItem("Body")
 Dim rtnav As NotesRichTextNavigator
 Set rtnav = rti.CreateNavigator
 If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then
   Messagebox "Body item does not contain a table,",, "Error"
   Exit Sub
 End If
 Dim rtt As NotesRichTextTable
 Set rtt = rtnav.GetElement
 Messagebox "Column count = " & rtt.ColumnCount,, _
 "NotesRichTextTable"
End Sub

See Also