LOTUSSCRIPT /COM/OLE のクラス

例:DoctypeSYSTEM プロパティ
次のエージェントは、現在のデータベースから DXL を生成します。その際に、デフォルトの domino.dtd の代わりに、DTD で指定した dominox.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

関連項目