Create a button, then paste the below program. It translate document items to XML file.
Dim sSession As New NotesSession
Dim dbThis As notesDatabase
Set dbThis = sSession.CurrentDatabase
Dim dc As NotesDocumentCollection
Set dc = dbThis.UnprocessedDocuments
If (dc Is Nothing) Then Exit Sub
If (dc.count < 1) Then Exit Sub
Dim doc As NotesDocument
Set doc = dc.GetFirstDocument
While (Not doc Is Nothing)
Dim de As NotesDXLExporter
Set de = sSession.CreateDXLExporter()
Call de.setInput(doc)
Dim dxl As String
dxl = de.Export
Dim rt As NotesRichTextItem
Set rt = New NotesRichTextItem(doc, "Body")
Call rt.AppendText(dxl)
Call doc.Save(False, False)
Set de = Nothing
Set doc = dc.GetNextDocument(doc)
Wend
