Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Set db = s.CurrentDatabase
 Set view = db.GetView("By Category")
 Dim newAlias As String
 Dim oldAliases As String
 If Isempty(view.Aliases) Then
   oldAliases = "No current aliases"
 Else
   oldAliases = "Current aliases"
   Forall a In view.Aliases
     oldAliases = oldAliases & " - " & a
   End Forall
 End If
 newAlias = Inputbox(oldAliases,"Enter new alias")
 Messagebox view.SetAliases(newAlias),, _
 "SetAliases return value"
 Call view.Refresh
 If Isempty(view.Aliases) Then
   oldAliases = "No current aliases"
 Else
   oldAliases = "Current aliases"
   Forall a In view.Aliases
     oldAliases = oldAliases & " - " & a
   End Forall
 End If
 Messagebox oldAliases,, "Current aliases"
End Sub

See Also

SetAliases method