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