Ich habe so was schon öfters implementiert. Dazu verwende ich Userprofile, die ich mit der Klasse UserProfile verwalte. Siehe hier ->
Klasse für UserprofileDas Öffnen der eingestellten Startansicht erfolgt dann im PostOpen-Event des DatenbankScriptes.
...
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Dim cProfile As UserProfil
Dim strView As String
Set uidb = workspace.CurrentDatabase
'Neue Instanz der Klasse UserProfil anlegen
Set cProfile = New UserProfil(session.CommonUserName)
'Startansicht auslesen
strView = cProfile.GetUserProfileEntry("xProfilStartansicht")
If strView <> "" Then
Call workspace.SetTargetFrame("NotesView")
Call uidb.OpenView(strView)
End If 'If strView <> "" Then
Delete cProfile
...
Axel