Hi,
folgende Script macht das, mit der Einschränkung, das die Datenbank in der die View erstellt wird im Frontend geöffnet sein sollte, sonst ist uidb leer und macht "object variable not set".
Sub Initialize
Dim s As New NotesSession
Dim viewAll As NotesView
Dim viewTopics As NotesView
Set viewAll = s.CurrentDatabase.GetView("($JunkMail)")
Set viewTopics = _
s.CurrentDatabase.CreateView("Topics", "SELECT @All")
Call viewTopics.SetAliases("Topics|Topics")
Set col2 = viewTopics.CopyColumn(viewAll.Columns(0), 2)
Call viewTopics.Refresh
Dim ws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Set uidb = ws.CurrentDatabase
Call uidb.OpenView("Topics")
End Sub