Das hat mir schon mal sehr geholfen:
Du kannst es in eine Schaltfläche einbinden, die du dem User dann zumailst.
Neues Memo
Erstellen
Hotspot
Schaltfläche
Hier gibst du dem Button einen Namen und fügst unten bei "Click" den Code ein.
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."
Gruß
Claudia