Rules.Create 方法 (Outlook)

使用 Name 指定的名称和RuleType 指定的规则类型创建 Rule 对象。

语法

expression。 Create( _Name_ , _RuleType_ )

表达 一个代表 Rules 对象的变量。

参数

名称	必需/可选	数据类型	说明
Name	必需	String	在创建之后将由 Rule.Name 代表的规则的字符串标识符。 集合中规则的名称不是唯一的。
RuleType	必需	OlRuleType	确定是否将该规则应用上发送或接收消息的 OlRuleType 枚举中的一个常数。

返回值

表示新创建的规则的 规则 对象。

备注

添加的规则的 RuleType 参数确定可以与 Rule 对象关联的有效规则操作、规则条件和 规则 例外条件。

当一个规则添加到集合中时， Rule.ExecutionOrder 的新规则将为 1。 集合中的其他规则 ExecutionOrder 就会递增 1。

示例

Visual Basic for Applications (VBA) 中的以下代码示例使用 Rules 对象模型创建规则。 在该代码示例中，除非邮件主题中包含某些词语，否则将使用 RuleAction 和 RuleCondition 对象来指定将来自特定发件人的邮件转发到特定文件夹的规则。 请注意，该代码示例假定"收件箱"下已经存在一个"Dan"文件夹。

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("Dan") 
 
 
 
 '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("Dan's rule", olRuleReceive) 
 
 
 
 'Specify the condition in a ToOrFromRuleCondition object 
 
 'Condition is if the message is sent by "DanWilson" 
 
 Set oFromCondition = oRule.Conditions.From 
 
 With oFromCondition 
 
 .Enabled = True 
 
 .Recipients.Add ("DanWilson") 
 
 .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

另请参阅

规则对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。