DominoArea.org [Archive]

Code : Tout sélectionner

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim filename As String
   Set db = session.CurrentDatabase
   
  REM Open xml file named after current database
   Dim stream As NotesStream
   Set dc = db.UnprocessedDocuments
   Set doc = dc.GetFirstDocument

   While Not (doc Is Nothing)

   Set stream = session.CreateStream
   
   filename$ = "c:\temp\test.xml"
   If Not stream.Open(filename$) Then
      Messagebox "Cannot open " & filename$,, "Error"
      Exit Sub
   End If
   Call stream.Truncate
   
  REM Export doc as DXL
   Dim exporter As NotesDXLExporter
   Set exporter = session.CreateDXLExporter(doc, stream)
   Call exporter.Process
        Set doc = dc.GetNextDocument(doc)
   Wend
   
End Sub

Avec 2-3 modifications vous pourrez créer une dialoguebox pour saisir manuellement les emplacements des fichier créé