- 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
- 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" )
- 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)" )
- 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