Function getadded(doc As notesdocument) As String
Dim session as new notessession
Dim dxl As String
Dim exporter As NotesDXLExporter
Set exporter=session.CreateDXLExporter(Doc)
dxl=exporter.export
Dim dom As NotesDOMParser
Set dom=session.CreateDOMParser(dxl)
dom.process
doc ist existent und somit enthält dxl auch gültige DXL.
Dennoch scheitert das ganze mit der o.g. lapidaren Fehlermeldung.
In meiner Noteshilfe steht, dass der NotesDOMParser Strings als Input akzeptieren müsste.
Ich vermute einen groben, vermutlich gar dummen Denkfehler und stehe vollkommen auf dem Schlauch und auch gefühlt endloses versuchen und suchen hat bisher nichts gebracht. Hilfe.
Ach ja, das Ding hat ja ein Log:
<?xml version='1.0'?>
<DOMParserLog>
<fatalerror source='inpu' line='2' column='57'>An exception occurred! Type:XMLPlatformException, Message:Could not open file: xmlschemas\domino_6_5_4.dt</fatalerror>
<error>DOM parser operation failed</error>
</DOMParserLog>
Und nun die Preisfrage:
Wie kann es sein, dass Notes eine dtd, die es zuvor zum Erstellen benutzt hat, beim Lesen nicht mehr öffnen kann...???? >:(
Und einen hab ich noch: Zeile 2 hat überhaupt nur 55 Zeichen...
Hier der Anfang des DXL:
<?xml version='1.0'?>
<!DOCTYPE document SYSTEM 'xmlschemas/domino_6_5_4.dtd'>
<document xmlns='http://www.lotus.com/dxl' version='6.5' maintenanceversion='4.0'
replicaid='C1256F690050F2A6' form='Kontakt'>
<noteinfo noteid='a626' unid='47D4DA872DCD06CBC12571010060CAE5' sequence='107'>....
Function getadded(doc As notesdocument) As String
Dim dom As NotesDOMParser
Dim dxl As String
Dim exporter As NotesDXLExporter
Set exporter=session.CreateDXLExporter(Doc)
Set dom=session.CreateDOMParser(exporter)
On Event PostDOMParse From dom Call domserialize
exporter.process
:-: