Lösungsweg...vorausgesetzt, die ECL lässt eine Änderung an der notes.ini zu
1. Im Regiondoubleclick Event der Kalenderansicht, lasse ich den Datumswert in die notes.ini schreiben
Sub Regiondoubleclick(Source As Notesuiview)
Dim s As New NotesSession
Call s.SetEnvironmentVar("SelectedDate", Cstr(Ws.CurrentCalendarDateTime), False)
Call thisUiDoc.Close(True)
End Sub
2. über die bereits genannte Schaltfläche öffne ich eine Dialogbox, in der die Kalenderansicht eingebettet ist, und hole den Wert aus der notes.ini und das Feld "Termin"
Sub Click(Source As Button)
Dim s As New NotesSession
Dim Ws As New NotesUIWorkspace
Dim thisDB As NotesDatabase
Dim SelDoc As NotesDocument
Dim thisDoc As NotesDocument
Dim thisUiDoc As NotesUIDocument
Dim DialogDoc As NotesDocument
Dim SelectDate As String
Set thisDB = s.CurrentDatabase
Set ThisDoc = ws.CurrentDocument.Document
Set DialogDoc = thisdb.CreateDocument
Call s.SetEnvironmentVar("SelectedDate", "", False)
Call ws.DialogBox("(sel_calendar)",True,True,False,False,False,False,"",DialogDoc,True)
SelectDate = s.GetEnvironmentString("SelectedDate")
Call s.SetEnvironmentVar("SelectedDate", "", False)
If Isdate(SelectDate) Then
thisDoc.Termin = SelectDate
End If
End Sub
Lars