例: NotesView class

次のスクリプトはメールデータベースで [By Category] ビューを検索して、ビューの最初の文書を取得します。

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

次のスクリプトはビューの完全名ではなく別名を使用して GetView を呼び出します。

Dim db As New NotesDatabase( "Havana", "calendar.nsf" )   
Dim view As NotesView
Set view = db.GetView( "CategoryView" )

非表示のビューにも他のビューと同じ方法でアクセスできます。非表示のビューにアクセスするには、ビュー名をカッコ内に指定します。次のスクリプトは [calendar] データベースの非表示のビューを取得します。
```
Dim db As New NotesDatabase( "Havana", "calendar.nsf" )
Dim view As NotesView
Set view = db.GetView( "(Days by Key)" )
```

次のエージェントはデータベースのデフォルトのビューを検索します。NotesDatabase クラスの Views プロパティと NotesView クラスの IsDefault プロパティを使用します。

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