Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim views As Variant
 Set db = session.CurrentDatabase
 views = db.Views
 REM view is a NotesView object
 REM cannot be Dim'd - loop reference variable
 Forall view In views
   Messagebox "View name:" & view.Name & Chr(10) _
   & "Parent:" & view.Parent.Title & Chr(10) _
   & "Last modified:" & view.LastModified & Chr(10) _
 & "Created:" & view.Created & Chr(10) _
   & "Universal ID:" & view.UniversalID & Chr(10) _
   & "BackgroundColor:" & _
   view.BackgroundColor & Chr(10) _
   & "Number of columns:" & view.ColumnCount & Chr(10) _
   & "Top level entries:" & view.TopLevelEntryCount,, view.Name
   If view.IsDefaultView Then _
   Messagebox "Default view",, view.Name
   If view.IsFolder Then Messagebox "Folder",, view.Name
   If Not Isempty(view.Aliases) Then
     Forall aliass In view.Aliases
       Messagebox "Alias:" & aliass,, view.Name
     End Forall
   End If
 End Forall
End Sub

関連項目

ビューやフォルダのプロパティにアクセスする

用語集