LOTUSSCRIPT/COM/OLE CLASSES

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

See Also