Programmatisch ist das ein Zehnzeiler, denn: Die Regeln sind ja nur aus dem Ordner verschwunden, die relevanten Informationen im Kalenderprofil (da schaut der Router nach) sind ja im Normalfall noch vorhanden:
Dim db as NotesDatabase
Dim dc as NotesDocumentCollection
Dim strQuery as String
'- Alle Maildatenbanken durchlaufen, z.B. über ein NotesDBDirectory
Set db = 'die aktuell zu verarbeitende Mail- Datenbank
strQuery = {Form = "Mailrule"}
Set dc = db.Search( strQuery, Nothing, 0)
Call dc.PutAllInFolder( "(Rules)" )
Aber ob das alle Probleme behebt, die durch dieses Missgeschick entstanden sind, wage ich zu bezweifeln.
u.A. werden auch die Alarme über einen Ordner ($Alarms) geregelt, und ($Trash) und (Group Calendars) sind auch Ordner...
An dem Ding werdet Ihr noch ne Weile zu kauen haben...