Ich hab sowas mal in einer "normalen" Ansicht gemacht. Ich weiß nicht ob's in einer Kalenderansicht funktioniert. Du kannst es aber gerne mal probieren. Hier der Code Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim doc As NotesDocument
Dim uiview As NotesUIView
Dim view As NotesView
Set db = session.CurrentDatabase
Set uiview = workspace.CurrentView
Set view = db.GetView("ResByDate")
Set doc = view.GetDocumentByKey([b]Today[/b]) -> hier dann das Datum
Call uiview.SelectDocument(doc)
End Sub