Rules.Create, méthode (Outlook)

Article
04/07/2023

Crée un objet Rule avec le nom spécifié par Name et le type de règle spécifié par RuleType.

Syntaxe

expression. Create( _Name_ , _RuleType_ )

Expression Variable qui représente un objet Rules .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Name	Obligatoire	String	Identificateur de chaîne pour la règle, qui sera représenté par Rule.Name après la création de la règle. Les noms de règle dans une collection ne sont pas uniques.
RuleType	Requis	OlRuleType	Constante dans l’énumération OlRuleType qui détermine si la règle est appliquée lors de l’envoi ou de la réception d’un message.

Valeur renvoyée

Objet Rule qui représente la règle nouvellement créée.

Remarques

Le paramètre RuleType de la règle ajoutée détermine des actions de règle valides, des conditions de règle et des conditions d'exception de règle qui peuvent être associées à l'objet Rule.

Lorsqu’une règle est ajoutée à la collection, la valeur Rule.ExecutionOrder de la nouvelle règle est 1. La valeur de l’élément ExecutionOrder des autres règles de la collection est incrémentée de 1.

Exemple

L’exemple de code suivant dans Visual Basic pour Applications (VBA) utilise le modèle objet Rules pour créer une règle. L’exemple de code utilise les objets RuleAction et RuleCondition pour spécifier une règle qui transfère les messages d’un expéditeur spécifique vers un dossier spécifique, sauf si le message contient certains termes dans l’objet. Notez que dans l’exemple de code, il est supposé qu’il existe déjà un dossier « Dan » sous Boîte de réception.

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

Voir aussi

Objet Rules

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Share via