Wenn das eine Schaltfläche im Navigator ist, dann kann das auch nicht funktionieren, da dann der Fokus auf dem Navigator resp. der Schaltfläche ist.
Ändere mal den Code wie folgt, um das zu verifizieren, Heinrich:
Sub Click(Source As Navigator)
Dim workspace As New NotesUIWorkspace
Dim view As NotesUIView
Set view = workspace.CurrentView
If view Is Nothing Then
Messagebox "View not instantiated !"
Else
Messagebox view.ViewName
End If
End Sub
Wozu soll das eigentlich gut sein ? Schaltfläche und ViewName anzeigen ? Warum Navigator anstatt Page / Outline ? Vielleicht findet sich ja eine ganz andere Lösung ?
Und: Willkommen im Forum, Heinrich !
Bernhard