Метод Rules.Create (Outlook)

Статья
04/07/2023

Создает объект Rule с именем, указанным в поле Имя , и типом правила, заданным параметром RuleType.

Синтаксис

выражение. Create( _Name_ , _RuleType_ )

Выражение Переменная, представляющая объект Rules .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Идентификатор строки для правила, который будет представлен Rule.Name после создания правила. Имена правил в коллекции не являются уникальными.
RuleType	Обязательный	OlRuleType	Константу в перечислении OlRuleType , которая определяет, применяется ли правило при отправке или получении сообщения.

Возвращаемое значение

Объект Rule , представляющий только что созданное правило.

Замечания

Параметр RuleType добавленного правила определяет допустимые действия правил, условия правил и условия исключений правила, которые могут быть связаны с объектом Rule .

При добавлении правила в коллекцию значение Rule.ExecutionOrder нового правила равно 1. Элемент ExecutionOrder других правил в коллекции увеличивается на 1.

Пример

В следующем примере кода в Visual Basic для приложений (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 и обратная связь.

Поделиться через