Examples: Log property

This example parses a rich text item from a document and displays parsing error from the 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