LOTUSSCRIPT/COM/OLE CLASSES

Examples: Accessing view or folder properties
This example prints properties of all the views in a database.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 REM view is a NotesView object
 REM cannot be Dim'd - loop reference variable
 Forall view In db.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
   If view.IsDefaultView Then _
   Messagebox "Default view"
   If view.IsFolder Then Messagebox "Folder"
   If Not Isempty(view.Aliases) Then
     Forall aliass In view.Aliases
       Messagebox "Alias: " & aliass
     End Forall
   End If
 End Forall
End Sub

See Also