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

関連項目