例: ビューエントリコレクション内のエントリを検索する

次の例では、ユーザー定義のビューエントリを最大 10 個検索し、それらをフォルダに入れます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As notesViewEntryCollection
  Dim entry As NotesViewEntry
  Dim doc As NotesDocument  
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set vc = View.GetAllEntriesByKey("Schools")
  Set entry = view.GetEntryByKey("Schools")
  Set doc = entry.Document
  Call vc.FTSearch(Inputbox$("Entry name?"), 10)
  Call vc.PutAllInFolder("Education")
End Sub