Rules.Create 方法 (Outlook)

使用Name所指定的名稱和RuleType所指定的規則類型，建立 Rule物件。

語法

expression。 Create( _Name_ , _RuleType_ )

表達 代表 Rules 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Name	必要	字串	規則的字串識別碼，將在規則建立後由 Rule.Name 表示。 規則的名稱在集合中不是唯一的。
RuleType	必要	OlRuleType	OlRuleType 列舉中的常數，用於決定在傳送郵件或接收郵件時是否套用此規則。

傳回值

代表新建立之規則的 Rule 物件。

註解

新增規則的 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

另請參閱

Rules 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。