Lotus Notes – Regeln bleiben aktiviert nach Löschung

Regeln, die in Notes R5 und höher erstellt werden bleiben möglicherweise nach dem Löschen aktiviert, wenn Sie nicht vor dem Löschen deaktiviert wurden.

Mit einem kleinen Agent in der Maildatenbank kann man dieses Problem beheben:

Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim server As String
Dim filepath As String

server = "Servername"
' enter the server name

filepath = "Filepath"
' enter the path to the database

REM Set db = New NotesDatabase( server, filepath )
Set db = session.CurrentDatabase
Print db.Title

Set doc = db.GetProfileDocument( "CalendarProfile"; )

Call doc.RemoveItem( "$FilterFormula_0" )
REM Call doc.RemoveItem( "$FilterFormula_1" )
REM Call doc.RemoveItem( "$FilterFormula_2" )
Call doc.ReplaceItemValue( "$FilterFormulaCount","0" )
Call doc.Save( True, False )

End Sub

Die Lösung wurde mir bereits 2005 in einer Newsgroup genannt worden, und ich hatte vergessen wie es ging. Der ursprüngliche Newsthread mit meiner Frage kann HIER nachgelesen werden.