Hi,
I am trying to use the DXL Exporter class to export a document’s XML to a RichTextField. The code I have doesn’t throw an error, but nothing is displayed in the rich text field:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim exporter As NotesDXLExporter
Dim rtixml As NotesRichTextItem
Set doc = ws.CurrentDocument.document
Set rtixml = doc.GetFirstItem("XML")
Set exporter = session.CreateDXLExporter
Call exporter.SetInput(doc)
Call exporter.SetOutput(rtixml)
Call exporter.Process
End Sub
please help, thanks!