LOTUSSCRIPT/COM/OLE CLASSES

Examples: Remove method
This agent removes the first or only table in the Body field of the current document.

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 "Row count = " & rtt.RowCount,, _
 "NotesRichTextTable"
 Call rtt.Remove
 Call doc.Save(True, True)
End Sub

See Also