例: Log property

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

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