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

See Also

SetAliases method

Glossary