It just doesn’t work for me, on 6.0 and 6.01I tried also the example below, no way…
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