Die Regeln aus der Maildatenbank werden in das CalendarProfile als Formel in Felder namens "$filterformula_##" übertragen. Die sind im Endeffekt ausschlaggeben dafür was Notes dann macht.
Wir haben das manchmal, dass sich dort irgendwas krummes verharkt und auch durch das Löschen der Regeln nicht wieder in Ordnung kommt. In dem Fall lösche ich die Items inkl. "$FilterFormulaCount" per Script aus dem Profildokument raus, aktiviere die Regeln wieder und es funktioniert normalerweise wieder.
Das hilft aber nur, wenn es auch wirklich daran liegt, was es nicht zwangsweise muss. Ist nur eine Vermutung.
Den Code hier habe ich wenn ich mich recht erinnere sogar aus diesem Forum. Als Schaltfläche in eine Mail eingebunden löscht er alle Regeln aus dem Calenderprofil der aktuellen Datenbank:
Sub Click(Source As Button)
Dim s As New notessession
Dim db As notesdatabase
Dim rulesfolder As notesview
Dim rules As notesviewentrycollection
Dim rule As notesviewentry
Dim ruledoc As notesdocument
Set db=s.currentdatabase
Set rulesfolder=db.getview("Rules")
Set rules=rulesfolder.allentries
Set profile=db.GetProfileDocument("CalendarProfile")
'Optional code to remove rule entries from the Calendar Profile which did not disable as expected.
'The code can be used if you want to "clean out" the rule entirely in the profile.
'NOTE: The code below will disable the C&S Miniview rule so it must be manually re-enabled.
If profile.getitemvalue("Use_CalendarRule")(0) = "1" Then
profile.Use_CalendarRule = "0"
End If
Set Count=profile.getfirstitem("$FilterFormulaCount")
Call count.remove
Forall ff In profile.Items
If ff.type = 1536 And Lcase(Left(ff.name,15)) = "$filterformula_" Then
Call ff.remove
End If
End Forall
Call profile.Save(True, True)
If profile.getitemvalue("Use_CalendarRule")(0) = "1" Then
number=1
Else
number=0
End If
Set rule=rules.getfirstentry
While Not rule Is Nothing
Set ruledoc=rule.document
ruledoc.ordernum=Cstr(number)
Call ruledoc.save(True, True)
Set rule=rules.getnextentry(rule)
number=number+1
Wend
Msgbox "Fehlerhafte Regeln entfernt!"
End Sub
Ich übernehme aber natürlich keine Garantie für überhaupt irgendwas!
Meine Erfahrungen damit sind aber positiv:
Regeln deaktivieren, Schaltfläche anklicken, Regeln aktivieren.
