LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetNextEntry method
This script retrieves the second entry in the Student category in the By Category view and puts it in the Honors folder.

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")
Set vc = view.GetAllEntriesByKey("Student")
Set entryOne = vc.GetFirstEntry()
Set entryTwo = vc.GetNextEntry(entryOne)
Set doc = entryTwo.Document
Call doc.PutInFolder("Honors")

See Also