Junk mail rule gone - how to recreate?

The “when sender or domain is in Blocked Sender list, move to junk mail” rule is pretty cool, BUT…

We have a couple of users where that rule has disappeared, and they swear they didn’t delete it (and I pretty much believe them).

The issue for me is how to recreate the rule in their mail file.

I reverted them to the default R5 design and did “load convert mail\UserMailFile.nsf * inotes6.ntf”, this didn’t put it back in.

I wrote some quick & dirty LS code to copy the “working” rule from my mail file to theirs, (code at the end of this message), and that put the rule there, but when you click edit on the rule, I get a “DialogBox not valid in this context, a document must be selected” message.

Soooo. What’s the ‘right way’ to recreate it?

TIA!!

cpw…

Dim session As New notessession

Dim db As NotesDatabase

Dim acDb As NotesDatabase

Set db = session.currentdatabase

Set acDb=session.GetDatabase(“DaServer/DaDomain”, “mail\ImaUser.nsf”)

Dim rule As NotesDocument

Dim ruleAc As NotesDocument

Set rule = db.GetDocumentByUNID(“1DEA230286D60E9786256DC500663668”)

Set ruleAc = rule.CopyToDatabase(acDb)

Call ruleAc.ComputeWithForm(True, True)

Call ruleAc.Save(True, True)

Subject: (fixed) junk mail rule gone - how to recreate?

It looks like some of the subforms had ‘disappeared’ from the mail template.

Don’t know how THAT happened, and it only affected the junk rule functionality.

Replacing them from a ‘virgin’ template fixes this.