Examples: SetAliases method

This agent sets two aliases for the "By Category" view.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  REM Set 2 aliases: ByCat and BC
  Call view.SetAliases("ByCat|BC")
End Sub