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