LOTUSSCRIPT/COM/OLE CLASSES

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

See Also