Rules.Create, méthode (Outlook)
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
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.