LOTUSSCRIPT/COM/OLE CLASSES

Examples: View property
This view action displays a few properties of the current view.

Sub Click(Source As Button)
 Dim ws As New NotesUIWorkspace
 Dim uiview As NotesUIView
 Dim view As NotesView
 Dim msg As String
 Set uiview = ws.CurrentView
 Set view = uiview.View
 If view.IsCategorized Then
   msg = "Categorized view" & Chr(13)
 Else
   msg = "Not categorized" & Chr(13)
 End If
 If view.IsDefaultView Then
   msg = msg & "Default view" & Chr(13)
 Else
   msg = msg & "Not the default view" & Chr(13)
 End If
 msg = msg & "Last modified: " & view.LastModified
 Messagebox msg,, uiview.ViewName
End Sub

See Also