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