LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetPrevSibling method
This script returns the previous sibling in a view navigator.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entryA As NotesViewEntry
Dim entryB As NotesViewEntry
Dim nav As NotesViewNavigator
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set nav = view.CreateViewNavFrom("Stock")
Set entryA = nav.GetLastDocument
Set entryB = nav.GetPrevSibling(entryA)
Set doc = entryB.Document
Call doc.PutInFolder("My Favorites")

See Also