Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entry As NotesViewEntry Dim vc As NotesViewEntryCollection Set db = session.CurrentDatabase Set view = db.GetView("By Category") Set vc = view.GetAllEntriesByKey("Sale items") Set entry = vc.GetNthEntry(1) Messagebox "Count: " & vc.Count Call vc.DeleteEntry(entry) Messagebox "Count: " & vc.Count
See Also