LOTUSSCRIPT /COM/OLE のクラス

例:ClearCollection メソッド
次のフォームには、文書コレクションのビルド、消去、および DXL へのエクスポートを実行するためのボタンが格納されています。ユーザーがビルド前のコレクションをエクスポートしようとしたり、消去したコレクションを再ビルドしないでエクスポートしようとすると、エラーが発生します。このエラーはコードによって捕捉されます。

%INCLUDE "lsxbeerr.lss"

Dim session As NotesSession
Dim db As NotesDatabase
Dim nc As NotesNoteCollection
Dim stream As NotesStream
Dim exporter As NotesDXLExporter

Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set stream = session.CreateStream
Set nc = db.CreateNoteCollection(False)
nc.SelectDocuments = True
Set exporter = session.CreateDXLExporter(nc, stream)
End Sub

Sub Click(Source As Button)
Call nc.BuildCollection
End Sub

Sub Click(Source As Button)
Call nc.ClearCollection
End Sub

Sub Click(Source As Button)
On Error lsERR_NOTES_DXLEXPORTER_INPUT_OBJECT Goto handler

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

REM Export DXL
Call exporter.Process

REM Close stream
Call stream.Close
Exit Sub

handler:
Messagebox "Must build note collection",, _
"Note collection cleared"
Call stream.Close
Exit Sub
End Sub

関連項目