Hallo Christian,
ich frage mal ins blaue und vielleicht liege ich auch total daneben:
Gibt es vielleicht bei der Mail-DB einen Agenten oder etwas in der Art dessen Gestaltung geschützt ist und durch den Wechsel der Schablone nicht geändert wird?
Es gibt 2 Felder in denen die Empfangsbestätigung hinterlegt ist:
Disposition Notification To + Return Receipt.
Wenn aktivierte Regeln gelöscht werden bleiben die im Hintergrund aktiv.
Vielleicht probierst du es mal damit (Regel löschen):
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim folder As NotesView
Set db = session.currentdatabase
Set folder = db.GetView("(Rules)")
Dim calendarProfile As NotesDocument
Set calendarProfile = db.GetProfileDocument( "CalendarProfile" )
Forall item In calendarProfile.Items
If( Lcase$(Left$(item.Name,15)) = "$filterformula_" ) Then
Print "Cleanup " & item.Name
Call item.Remove
End If
End Forall
Call calendarProfile.Save( False, False )
Dim mailrule As NotesDocument
Set mailrule = folder.GetFirstDocument
While Not( mailrule Is Nothing )
Call mailrule.ReplaceItemValue( "Enable","0" )
Call mailrule.Save( True,False,True )
Set mailrule = folder.GetNextDocument( mailrule )
Wend
Call workspace.OpenDatabase( db.Server, db.FilePath, "(Rules)" )
Messagebox "reactivate your mail rules."
End Sub
Gruß
Claudia