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

関連項目