Set mImporter = mSession.CreateDxlImporter(, mThisDb)	
Set stream = mSession.CreateStream
Call stream.Writetext(dxl)
Call mImporter.SetInput(stream)
mImporter.ExitOnFirstFatalError = True
mImporter.DocumentImportOption = DXLIMPORTOPTION_REPLACE_ELSE_CREATE
mImporter.ReplicaRequiredForReplaceOrUpdate = False			
On Error Resume Next
Err = 0
Call mImporter.Process
If Err <> 0 Then
	... '// hier mImporter.LOG und mImporter.LOGComment anzeigen oder wegloggen usw.
	Error 32000, "..."		
End If
On Error GoTo 0
strID = mImporter.GetFirstImportedNoteId()
Set doc = mThisDb.GetDocumentByID(strID)

Function xxx_DXL(newMailDoc As NotesDocument) As Boolean
	On Error GoTo errhandler
	xxx_DXL = False

	Dim streamDoc As NotesStream
	Dim dxlExporter As NotesDXLExporter
	Dim dxlImporter As NotesDXLImporter
	Dim ses As New NotesSession
	Dim strDoc As String
	Dim filename As String
	Dim filenum As Integer
	
	filename =  "C:\temp\NotesDokument_XML_Export.dxl"

	' Dokumenet nach MIME konvertieren	
	Call newMailDoc .ConvertToMIME( CONVERT_RT_TO_HTML)
	
	' Dokument exportieren
	On Error Resume Next
	Kill filename
	On Error GoTo errhandler
	
	filenum = FreeFile
	Open filename For Output As filenum Charset = "UTF-8"
	
	Set streamDoc = ses.Createstream()
	Set dxlExporter = ses.CreateDXLExporter()
	dxlExporter.Omitrichtextattachments = True
	Call dxlExporter.SetInput(newMailDoc)
	Call dxlExporter.SetOutput(streamDoc)
	Call dxlExporter.Process
	
	strDoc = streamDoc.ReadText
	
	Write #filenum, strDoc
	Close filenum
	
	
	'Nun das DXL File wieder importieren		
	Set dxlImporter = ses.Createdxlimporter()
	dxlImporter.DocumentImportOption = DXLIMPORTOPTION_UPDATE_ELSE_IGNORE
	dxlImporter.Inputvalidationoption = 0
	Call dxlImporter.Import(strDoc, CS_Database)

	xxx_DXL = True
	Exit Function

errhandler:
	Msgbox "Fehler: " & Error & " (" & Err &  ") in Zeile: " & Erl, 16, ""
	Exit Function	
End Function