Examples: NotesView class

  1. This script finds the By Category view in a mail database and then gets the first document in the view.
    Dim db As New NotesDatabase( "Havana","mail\cbanner.nsf" )
Dim view As NotesView
Dim doc As NotesDocument
Set view = db.GetView( "By Category" )
view.AutoUpdate = False
Set doc = view.GetFirstDocument

  2. This script calls GetView using a view's alias instead of its full name.
    Dim db As New NotesDatabase( "Havana", "calendar.nsf" )   
Dim view As NotesView
Set view = db.GetView( "CategoryView" )
  3. You can access hidden views the same way as any other view; include the parentheses in the view name. This script gets a hidden view in a calendar database.
    Dim db As New NotesDatabase( "Havana", "calendar.nsf" )
Dim view As NotesView
Set view = db.GetView( "(Days by Key)" )
  4. This agent finds the default view of a database. It uses the Views property from the NotesDatabase class and the IsDefault property from the NotesView class.

    Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim views As Variant
  Set db = session.CurrentDatabase
  views = db.Views
  Forall v In views
    If v.IsDefaultView Then
      Set view = v
      Exit Forall
    End If
  End Forall
  If view Is Nothing Then
    Messagebox "",, "No default view"
  Else
    Messagebox view.Name,, "Default view"
  End If
End Sub