Select Case RunStopRule
Case 1:
Call ws.DialogBox("RunRulesNowDlg",True,True,True,True,True,False,MaxRunRules_3,RRDoc ,True, True)
Case 3,4:
Call RRprof.ReplaceItemValue("RROrderNums", CStr(note.Universalid))
Call RRprof.ReplaceItemValue("RRDlgStatus", "1")
Dim usernam As NotesName
Set usernam = s.CreateName(s.Effectiveusername)
Call RRprof.ReplaceItemValue("RRByUser", usernam.Canonical)
Call RRprof.ReplaceItemValue("RRTotRules", 1)
Call RRprof.ReplaceItemValue("RRCurRule", 1)
Call RRprof.ReplaceItemValue("RRVName", RView.Name)
Call RRprof.ReplaceItemValue("RRNoteEmailData_1", "")
Call RRprof.ReplaceItemValue("RRNoteEmailData_2", "")
Call RRprof.ReplaceItemValue("RRNoteEmailData_3", "")
Call RRprof.ReplaceItemValue("RRNoteEmailData_4", "")
Call RRprof.ReplaceItemValue("RRNoteEmailData_5", "")
Call RRprof.Save(True,False)
Call ws.DialogBox("RunRuleNowDlg",True,True,True,True,True,False, MaxRunRules_3,RRDoc ,True, True)
End Select