Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entryOne As NotesViewEntry Dim entryTwo As NotesViewEntry Dim vc As Dim doc As NotesDocument Set db = session.CurrentDatabase Set view = db.getView("By Category") Set vc = view.GetAllEntriesByKey("Student") Set entryOne = vc.GetNthEntry(3) Set entryTwo = vc.GetPrevEntry(entryOne) Set doc = entryTwo.Document Call doc.PutInFolder("Honors")
See Also