Page 1 sur 1
Export DXL
Publié:
16 Fév 2007 à 14:21par billbock
- Code : Tout sélectionner
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
'Open xml file named after current database
Dim stream As NotesStream
Set stream = session.CreateStream
filename$ = "c:\dxl\" + Left(db.FileName, Len(db.FileName) - 4) + "_all.xml"
If Not stream.Open(filename$) Then
Messagebox "Cannot open " + filename$ + ". Check to make sure this directory exists.",, "Error"
Exit Sub
End If
Call stream.Truncate
'Export current database as DXL
Dim exporter As NotesDXLExporter
Set exporter = session.CreateDXLExporter(db, stream)
exporter.OutputDOCTYPE = False
Call exporter.Process