Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim stream As NotesStream
Set stream = s.CreateStream
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)

REM Export forms
Call ExportFormView(True, False, s, db, stream, nc)

REM Export views
Call ExportFormView(False, True, s, db, stream, nc)

REM Export forms and views
Call ExportFormView(True, True, s, db, stream, nc)

REM Test bad call
Call ExportFormView(False, False, s, db, stream, nc)
End Sub

Sub ExportFormView(form As Boolean, view As Boolean, _
session As NotesSession, db As NotesDatabase, _
stream As NotesStream, nc As NotesNoteCollection)

REM Check parameters and set up filename
If form And view Then
filename$ = "formview"
Elseif form Then
filename$ = "form"
Elseif view Then
filename$ = "view"
Else
Messagebox "Form and view both false",, "No action"
Exit Sub
End If

REM Open dxl file as stream
filename$ = "c:\dxl\" & filename$ & ".dxl"
If Not stream.Open(filename$) Then
Messagebox "Cannot open " & filename$,, "Error"
Exit Sub
End If
Call stream.Truncate

REM Create note collection
Call nc.SelectAllNotes(False)
If form Then
nc.SelectForms = True
nc.SelectSubforms = True
nc.SelectSharedFields = True
End If
If view Then
nc.SelectViews = True
nc.SelectFolders = True
End If
Call nc.BuildCollection

REM Export DXL
Dim exporter As NotesDXLExporter
Set exporter = session.CreateDXLExporter(nc, stream)
Call exporter.Process

REM Close stream and clear collection
Call stream.Close
Call nc.ClearCollection
End Sub

関連項目

BuildCollection メソッド

用語集