hat sonst jemand vielleicht noch eine Idee
Sub Click(Source As Navigator) Dim session As New notessession Dim doc As notesdocument Set db = session.CurrentDatabase If session.DocumentContext Is Nothing Then Msgbox "Kein Dokument ausgewählt." Exit Sub Else Set doc = session.DocumentContext Msgbox doc.Subject(0) End If End Sub