LOTUSSCRIPT /COM/OLE のクラス

例:ColumnCount プロパティ
次のエージェントは、現在の文書の [Body] フィールド内で最初の (または唯一の) 表を取得し、その列数を表示します。

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

関連項目