Examples: NotesViewNavigator class

  1. This script displays the universal ID of the last document entry in a view navigator.
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim nav As NotesViewNavigator
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set nav = view.CreateViewNav
Set entry = nav.GetLastDocument
Messagebox "UNID: " & entry.UniversalID
  2. This script returns the next to last entry in the view navigator and puts the associated document in a folder.
    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.CreateViewNav
Set entryA = nav.GetLastDocument
Set entryB = nav.GetPrevDocument(entryA)
Set doc = entryB.Document
Call doc.PutInFolder("My Favorites")
  3. This script displays the universal ID of the user-specified entry in a view navigator.
    Dim session As New NotesSession
Dim db As NotesDatabase 
Dim view As NotesView
Dim entry 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.CreateViewNav
Set entry = nav.GetPos(Inputbox$("Entry position: "), ".")
Messagebox "Entry UNID: " & entry.UniversalID