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