Sub SetMailSortingRule() Dim outlookRules As Outlook.Rules Dim outlookRule As Outlook.Rule Dim outlookRuleActions As Outlook.RuleActions Dim outlookRuleAction As Outlook.RuleAction Dim outlookMoveToFolder As Outlook.MoveOrCopyRuleAction Di…