DXL Output to Rich Text Field?

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!

Subject: DXL Output to Rich Text Field?

I don’t see you’re saving the document somewhere in your code?

Martin Vereecken

http://www.bizzybee.be (Notes blog)

Subject: DXL Output to Rich Text Field?

Duh, I got it:

dxl$ = exporter.Export( doc )

:slight_smile: