例: ViewAlias property

次の例は、現在のビューの別名を表示します。

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