LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entryOne As NotesViewEntry Dim entryTwo As NotesViewEntry Dim vc As NotesViewEntryCollection Dim doc As NotesDocument Set db = session.CurrentDatabase Set view = db.GetView("By Category") view.AutoUpdate = False Set vc = view.GetAllEntriesByKey("Household Appliances") Set entryOne = vc.GetNthEntry(2) Set entryTwo = vc.GetEntry(entryOne) Set doc = entryTwo.Document Call doc.PutInFolder("Sale Items"))
See Also