Delete Send to rules from Mail File

HCL Domino Domino Forum
1

Hi All,I need to delete rules user have created in their mail files, but only if the have create a send to rule outside of company domain.

There are thousands of users whose send to ‘third party’ rule need to be disable and delete from Rule folder.

Please guide me how can I achieve this.

Thanks in Advance

2

Subject: Some options

There is a ini/config doc that can disable mail fowarding rules. Here is a url to the config doc. Computer Glossary, Computer Terms - Technology Definitions and Cheat Sheets from WhatIs.com - The Tech Dictionary and IT Encyclopedia. I think it came with 8.5

To accomplish what you want to do would of just outside mail fowarding rules would involve a mail template change so internet address are not allowed in the foward address and a one time agent that would agent that would scan all mail files and disable all mail foward rules that foward to a outside internet address. It is not just a matter of deleting the rule doc.

More info is stored in a profile doc that would need to updated.

3

Subject: Rule deleted but still mail is getting forwarded

Hi,I have used the below code to delete the rule.

But it seems, it just get removed from folder ‘Rule’. How can I remove the rule from Rule folder Along its profile.

My Code:

Option Public

Sub Initialize

On Error GoTo errHandler

Dim s As New NotesSession

Dim db As NotesDatabase

Dim rulesfolder As NotesView

Dim rules As NotesViewEntryCollection

Dim rule As NotesViewEntry

Dim ruledoc As NotesDocument

Dim profile As NotesDocument

Dim ctr As Integer

	

Set db=s.currentdatabase

Set rulesfolder=db.getview("Rules")

Set rules=rulesfolder.allentries

Set profile=db.GetProfileDocument("CalendarProfile")



	

Set rule=rules.getfirstentry

While Not rule Is Nothing

	

	 Set ruledoc=rule.document		

	Action = ruledoc.ActionList(0)



	If Left$(Action,18) = " send Full Copy to" Then

		Call ruledoc.remove(true)			

	End If		

	

	Set rule=rules.getnextentry(rule) 

Wend

errHandler:

MsgBox "Error on Line : " + CStr(Erl) + Chr(10) + "Error Code : " + CStr(Err) + Chr(10) + "Error : " + CStr(Error)

End Sub

Thanks in advance

4

Subject: Rules are sort-of cached

You might have to get the user to stop & restart Notes for them to stop being used