Easy way to see if the Users have any Mail Rules set?

Please help,

Is there an easy way out to find MailRules if there are in any of the USer’s MailFile…

I need to get the list of Users having MailRules assigned to it (For eg: Forward)

Please help

Thanks in advance,

ac ac

Subject: Easy way to see if the Users have any Mail Rules set?

you can adjust for your needs. Create a button in your mail file to try. This assumes 6.5.4 iNotes template design. You’ll need to build a list of mail files on your server using DBDirectory then cycle through them. Have fun.

Sub Click(Source As Button)

Dim ns As New NotesSession

Dim db As NotesDatabase

Set db = ns.CurrentDatabase

Dim view As NotesView

Set view = db.GetView("Rules")

Dim vec As NotesViewEntryCollection

Set vec = view.AllEntries

If vec.Count = 0 Then

	Msgbox "There are no rules in this db"

	Exit Sub

End If

Dim doc As NotesDocument

Dim ve As NotesViewEntry

Set ve = vec.GetFirstEntry

While Not ve Is Nothing

	Set doc = ve.Document

	If doc.Enable(0) = "1" Then

		Msgbox Cstr(ve.ColumnValues(3)), 0, "Condition"

		Msgbox Cstr(ve.ColumnValues(4)), 0, "Action"

	End If

	Set doc = Nothing

	Set ve = vec.GetNextEntry(ve)

Wend

End Sub

Subject: Easy way to see if the Users have any Mail Rules set?

Easy way :

  • go in the LOG.NSF , view ROUTING EVENTS

  • search for string “auto forwarded”

(may be another string, depending on the release)