例: SetAliases method

このエージェントは、[カテゴリ別] ビューに対して 2 つの別名を設定します。

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