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