例: ClearCollection method

次のフォームには、文書コレクションのビルド、消去、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