das ist mein Script...
Sub Postopen(Source As Notesuidatabase)
Dim db As NotesDatabase
Dim view As NotesView
Dim profile As NotesDocument
Set db = Source.Database
Set view = db.GetView("Linkuebersicht")
Set profile = view.GetFirstDocument
If (profile Is Nothing) Then Exit Sub
If (profile.StartUpOptions(0) = "1") Then
Set w = New NotesUIWorkspace
w.UrlOpen profile.OpenUrl(0)
End If
End Sub
aber es klappt nicht...