Hallo,
Ich bin absoluter LotusDomino Newbie. Ich möchte per Mausklick Emails (immer nur die ausgewählte) aus der Inbox als XML Datei exportieren. Das Auswahlmenü der rechten Maustaste habe ich um einen Punkt Export erweitert. Aber irgendwas stimmt mit meinem Script nicht. Bekomme beim ausführen die Meldung: "XSL transform operation failed" . Ist bestimmt ein ganz blöder Anfängerfehler. Vielleicht kann ja mal jemand drüber schauen:
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim doc As NotesDocument
Set uiview = ws.CurrentView
Set doc = db.GetDocumentByID(uiview.CaretNoteID)
Dim exporter As NotesDXLExporter
Set exporter = s.CreateDXLExporter (doc)
Dim transformer As NotesXSLTransformer
Dim xslStyle As NotesStream
Set xslStyle = s.CreateStream ()
Call xslStyle.Open ("C:\Programme\lotus\notes\data\xsl\REPORT-AllLSinForm.xsl")
Set transformer = s.CreateXSLTransformer (exporter, xslStyle)
Dim outputstream As NotesStream
Set outputstream = s.CreateStream ()
Call outputstream.Open ("C:\DataConvDXL.xml")
Call outputstream.Truncate ()
Call transformer.setOutput (outputstream)
exporter.DoctypeSYSTEM = "C:\Programme\lotus\notes\Domino.dtd"
Call exporter.process ()
Call outputstream.Close ()
Call xslStyle.Close ()
End Sub
Vielen Dank!