Export DXL des docs selectionnés

[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) + "_documents.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
   
  'Build a NoteCollection to limit the export file to documents
   Dim nc As NotesNoteCollection
   Set nc = db.CreateNoteCollection(False)
   nc.SelectDocuments=True
   Call nc.BuildCollection
   
  'Export current database as DXL
   Dim exporter As NotesDXLExporter
   Set exporter = session.CreateDXLExporter(nc, stream)
   exporter.OutputDOCTYPE = False
   Call exporter.Process