LOTUSSCRIPT /COM/OLE のクラス

例:Log プロパティ
次の例は、文書のリッチテキストアイテムを解析し、ログの解析エラーを表示します。

Sub Initialize

On Error Goto errh

Dim session As New NotesSession
Dim domParser As NotesDOMParser
Dim doc As NotesDocument
Set doc = session.DocumentContext
Dim item As NotesRichTextItem
Set item = doc.GetFirstItem ("Body")

Set domParser = session.CreateDOMParser(item)
domParser.ExitOnFirstFatalError = True
domParser.Process

Msgbox "Parsing completed."
Exit Sub

errh:
Msgbox domParser.log
End Sub

関連項目