Example: Searching for entries in a view entry collection

This example searches for up to 10 user-defined view entries and places them in a folder.

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