LOTUSSCRIPT/COM/OLE CLASSES

Examples: ViewAlias property
This example displays the alias(es) of the current view.

Sub Click(Source As Button)
 Dim ws As New NotesUIWorkspace
 Dim uiview As NotesUIView
 Set uiview = ws.CurrentView
 Dim aliasMsg As String
 If uiview.ViewAlias = "" Then
   aliasMsg = "No aliases"
 Elseif Instr(uiview.ViewAlias, "|") = 0 Then
   aliasMsg = uiview.ViewAlias
 Else
   Forall a In uiview.View.Aliases
     aliasMsg = aliasMsg & a & Chr(13)
   End Forall
 End If
 Messagebox aliasMsg,, uiview.ViewName
End Sub

See Also