IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

Example: DoctypeSYSTEM property

This agent generates DXL from the current database using the DTD named dominox.dtd instead of the default domino.dtd.

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) & "xml"

  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

  exporter.DoctypeSYSTEM = "dominox.dtd"

  Call exporter.SetInput(db)

  Call exporter.SetOutput(stream)

  Call exporter.Process

End Sub

---

Library | Support | Terms of use |

Last updated: Monday, October 5, 2009