如何在Outlook配置文件中设置规则

Question

我已经从Store.GetRules方法（Outlook）中获得了所有Outlook配置文件规则，现在如何设置其他配置文件中的所有规则

Answer 1

您可以使用Rules.Create方法创建具有Rule指定的名称和Name指定的规则类型的RuleType对象。

Sub CreateRule()  
 Dim colRules As Outlook.Rules  
 Dim oRule As Outlook.Rule  
 Dim colRuleActions As Outlook.RuleActions  
 Dim oMoveRuleAction As Outlook.MoveOrCopyRuleAction  
 Dim oFromCondition As Outlook.ToOrFromRuleCondition  
 Dim oExceptSubject As Outlook.TextRuleCondition  
 Dim oInbox As Outlook.Folder  
 Dim oMoveTarget As Outlook.Folder 

 'Specify target folder for rule move action  
 Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox)  
 'Assume that target folder already exists  
 Set oMoveTarget = oInbox.Folders("Eugene")  

 'Get Rules from Session.DefaultStore object  
 Set colRules = Application.Session.DefaultStore.GetRules()  

 'Create the rule by adding a Receive Rule to Rules collection  
 Set oRule = colRules.Create("Eugene's rule", olRuleReceive) 

 'Specify the condition in a ToOrFromRuleCondition object  
 'Condition is if the message is sent by "Eugene"  
 Set oFromCondition = oRule.Conditions.From  
 With oFromCondition  
 .Enabled = True  
 .Recipients.Add ("Eugene")  
 .Recipients.ResolveAll  
 End With 

 'Specify the action in a MoveOrCopyRuleAction object  
 'Action is to move the message to the target folder  
 Set oMoveRuleAction = oRule.Actions.MoveToFolder  
 With oMoveRuleAction  
 .Enabled = True  
 .Folder = oMoveTarget  
 End With  

 'Specify the exception condition for the subject in a TextRuleCondition object  
 'Exception condition is if the subject contains "fun" or "chat"  
 Set oExceptSubject = _  
 oRule.Exceptions.Subject  
 With oExceptSubject  
 .Enabled = True  
 .Text = Array("fun", "chat")  
 End With 

  'Update the server and display progress dialog  
  colRules.Save  
End Sub