nach MailSchablonenwechsel sind Regeln weg

Bitte Suche verwenden!

Zum Wieder-Sichtbar-Machen versuche mal folgenden Code:

Sub Initialize
Dim se As New NotesSession
Dim db As NotesDatabase
Dim dc As notesdocumentcollection
Dim doc As NotesDocument

Set db=se.CurrentDatabase

targetfolder$ = "(Rules)"
searchformula$="form='Mailrule'"

Set dc=db.search(searchformula$, Nothing, 0)

Set doc=dc.GetFirstDocument

While Not doc Is Nothing
Call doc.PutInFolder(targetfolder$)


Set doc=dc.GetNextDocument(doc)
Wend

End Sub

Der wurde mir mal zur Verfügung gestellt und hat geholfen.
Baue diesen in einen Script-Agenten in die betroffene DB im Objekt "Initialize" ein.

Siehe dazu auch den Screnn Shot.

Gruß Steffen

offtopic\
Da vertraue ich als Admin ganz und gar dem Designer!
Dirk, was muss ich machen, damit der Code so schön in Form gebracht ist?

Gruß Steffen

Test:

Sub Initialize
   Dim se As New NotesSession
   Dim db As NotesDatabase
   Dim dc As notesdocumentcollection
   Dim doc As NotesDocument

   Set db=se.CurrentDatabase

   targetfolder$ = "(Rules)"
   searchformula$="form='Mailrule'"

   Set dc=db.search(searchformula$, Nothing, 0)

   If dc.Count > 0 Then
      Call dc.PutAllInFolder(targetfolder$)
   End if
End Sub

Cool... danke!