Im Agenten "(Preferences)" bin ich auf folgenden Code gestoßen:
Dim currentview As notesuiview
Set currentview = ws.currentview
If currentview Is Nothing Then
Exit Sub
' if we have a CalendarView open and either Colors or Preferences have changed, then rebuild the view
Elseif (currentview.viewalias = "CalendarHideTodos" Or currentview.viewalias = "Calendar") And _
( note.getitemvalue("ColorChange")(0) = "2" Or rebuildPreferences = True ) Then
Call ws.viewrebuild( rebuildView, rebuildPreferences )
Elseif note.getitemvalue("ColorChange")(0) = "1" Then
Call ws.viewrebuild( rebuildView, rebuildPreferences )
End If
Was um alles in der Welt ist currentview.viewalias = "CalendarHideTodos" - so eine Ansicht gibt es nicht
Der Verdacht drängt sich aber auf, dass das mit dem Problem zu tun hat.
Andreas