Examples: Views property

  1. This script displays the names of all the views and folders in the current database.

    Sub Initialize
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim views As Variant
      Set db = session.CurrentDatabase
      views = db.Views
      Forall v In views
        Messagebox(  v.Name  )
      End Forall
    End Sub
  2. This script uses the Views property to find the default view of the current database and assign it to the view object.
    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