LotusScript NotesDXLExporter Process doesn't export encrypted documents containing attachments

In Lotus Domino®, the DXLExporter does not export encrypted documents when they have attachments. When attempting to export from Notes 6 releases, an output .xml file is created but it does not contain any document information. When attempting to export from Notes 7.0, a similar .xml file is created but the following error will also occur when executing the code:

"DXL exporter operation failed"

If the NotesDXLExporter object's Log property is output, it will contain an entry similar to the following:

"Error occurred during processing of note ID 0x..."

"DXL exporter operation failed"

This issue was reported to Quality Engineering as SPR# ADEE6DEU2E and was fixed in the Lotus Notes®,/Domino 6.5.6 MR and 7.01 MR releases.

Excerpt from the Lotus Notes and Domino 6.5.6 MR fix list and 7.0.1 MR fix list (available at http://www.ibm.com/developerworks/lotus):

XML

• SPR# ADEE6DEU2E - DXLExporter does not export encrypted documents with attachment/s. The bug caused the DXL Exporter to emit the error, "You must supply the bulk decryption key in order to extract this file object," when exporting a document containing a Huffman-compressed, encrypted attachment.

Refer to the Upgrade Central site for details on upgrading Notes/Domino.

Workaround
The only current workaround is to either decrypt the documents or remove the attachments. Refer to the following document for a programmatic method which can be used to remove encryption from documents in any database (the encryption key is necessary): Document #1089495, "How to remove encryption from mail documents when converting licenses from North American to International".

Supporting Information
The following demonstrates the minimal example of the code that can be used to reproduce this issue. The code includes an example of error check logic which will output the Log property when an error occurs during the Process call.

Dim s As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim exporter As NotesDXLExporter
Dim stream As NotesStream
Dim fileName As String
filename = "c:\output.xml"

Set db = s.CurrentDatabase
Set col = db.UnprocessedDocuments
Set stream = s.CreateStream
Call stream.Open(filename)

Call stream.Truncate
Set exporter = s.CreateDXLExporter(col)
Call exporter.SetOutput(stream)
On Error Goto export_error
Call exporter.Process
Call stream.Close
Exit Sub

export_error:

Msgbox exporter.Log
Exit Sub