1. schreibt alle Dokumente einer View in ein Verzeichnis des Betriebssystems.
Sub Initialize
'This agent is used to get the document DXL, given a UNID
Const strXmlOutPath = "C:\\temp\dxl\" ' change this
Const strViewName = "Mustertexte nach Kategorie" ' change this
Dim s As New notessession
Dim db As notesdatabase
Dim v As notesview
Dim doc As notesdocument
Dim exporter As NotesDXLExporter
Dim strXmlOutFilename As String
Dim xml_out As notesstream
Set db = s.currentdatabase
Set v = db.GetView(strViewName)
' Print ""
Set doc = v.getFirstDocument
Set exporter = s.CreateDXLExporter
exporter.OutputDOCTYPE=False
Set xml_out = s.CreateStream
Do Until doc Is Nothing
strXmlOutFilename = doc.UniversalID + ".xml"
If Not (xml_out.Open(strXmlOutPath + strXmlOutFilename )) Then
Print Cstr(Err) & ":" & Error$ " bei xml rausschreiben von " + strXMLOutFilename
Exit Sub
End If
Call exporter.SetInput(doc)
Call exporter.SetOutput(xml_out)
exporter.process
xml_out.Close ' wichtig
xml_out.truncate ' vermutlich wichtig
Set doc = v.getNextDocument(doc)
Loop
Exit Sub
err1:
Print "You reached in error" & Cstr(Err) & ":" & Error$
Exit Sub
End Sub