Export DXL

[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