How do i stop a mail rule in lotus notes

Sub Click(Source As Button) 
      Dim session As New NotesSession 
      Dim db As NotesDatabase 
      Dim doc As NotesDocument 
      Set db=session.CurrentDatabase 
      Set doc=db.GetProfileDocument("CalendarProfile") 
      Call doc.remove(True) 
      If doc Is Nothing Then 
              Msgbox "Profile Document Was Successfully Removed" 
      Else 
              Msgbox "Profile Document WAS NOT Removed",48 
      End If 
      
End Sub

Select allOpen in new window

'(Options)
Option Public
Option Explicit

Sub Initialize
%REM
Author: Ron Jarvis
Purpose: Removes all mail rules contained in caledar profile. Needed to handle 
situations where the rule has been removed from the UI but still exitsts in the 
calendar profile.
%END REM

Dim i As Integer
Dim iDocNeedsSaving As Integer
Dim sFieldName As String

Dim ns As New notessession
Dim ndb As notesdatabase
Dim nd As notesdocument
Dim niTemp As notesitem

Set ndb = ns.currentdatabase
Set nd = ndb.getprofiledocument("CalendarProfile")
Print "Handle on Calendar Profile...."

iDocNeedsSaving = False

'Kill the rules
For i = 0 To 50
sFieldName = "$FilterFormula_" & i
Set niTemp = nd.getFirstItem(sFieldName)
If Not niTemp Is Nothing Then
Print "Removing field '" & sFieldName & "' from 
Calendar Profile."
Call niTemp.Remove
iDocNeedsSaving = True
End If
Next

'Kill the rule counter field
sFieldName = "$FilterFormulaCount"
Set niTemp = nd.getFirstItem(sFieldName)
If Not niTemp Is Nothing Then
Print "Removing field '" & sFieldName & "' from Calendar 
Profile."
Call niTemp.Remove
iDocNeedsSaving = True
End If

If iDocNeedsSaving Then
Call nd.Save(True, False)
Print "All rule information removed from the Calendar Profile."
Else
Print "No rule information found on Calendar Profile."
End If	

End Sub

Select allOpen in new window