IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

Example: NotesDXLExporter class

This agent generates DXL from the current database.

Sub Initialize

  Dim session As New NotesSession

  Dim db As NotesDatabase

  Set db = session.CurrentDatabase

  

  REM Open xml file named after current database

  Dim stream As NotesStream

  Set stream = session.CreateStream

  filename$ = "c:\dxl\" & Left(db.FileName, Len(db.FileName) - 3) & "dxl"

  If Not stream.Open(filename$) Then

    Messagebox "Cannot open " & filename$,, "Error"

    Exit Sub

  End If

  Call stream.Truncate

  

  REM Export current database as DXL

  Dim exporter As NotesDXLExporter

  Set exporter = session.CreateDXLExporter

  Call exporter.SetInput(db)

  Call exporter.SetOutput(stream)

  Call exporter.Process

End Sub

The file generated by this code can be imported using the code specified in Example 1 of the NotesDXLImporter class.

---

Library | Support | Terms of use |

Last updated: Monday, October 5, 2009