LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entry As NotesViewEntry Dim vc As NotesViewEntryCollection Dim doc As NotesDocument Set db = session.CurrentDatabase Set view = db.getView("By Category") Set vc = view.GetAllEntriesByKey("Student") Set entry = vc.GetNthEntry(3) Set doc = entry.Document Call doc.PutInFolder("Honors")
See Also