例: ビューエントリコレクションから文書を削除する

次の例では、「Fox」というビューエントリコレクション内のエントリに関連付けられたすべての文書を削除します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewEntryCollection
  Set db = session.Currentdatabase
  Set view = db.GetView("By Category")
  Set vc = view.GetAllEntriesByKey("Fox")
  Call vc.RemoveAll(True)
End Sub

次の例では、「Jazz™」というフォルダ内のエントリに関連付けられたすべての文書を削除します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewEntryCollection
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category"
  Set vc = view.GetAllEntriesByKey("Trumpet players")
  Call vc.RemoveAllFromFolder("Jazz")
End Sub