Método Rules.Create (Outlook)

Cria um objeto Rule com o nome especificado por Name e o tipo de regra especificado por RuleType.

Sintaxe

expression. Create( _Name_ , _RuleType_ )

Expressão Uma variável que representa um objeto Rules .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	Um identificador de cadeia de caracteres para a regra, que será representado por Rule.Name após a criação da regra. Os nomes de regras em um conjunto não são exclusivos.
RuleType	Obrigatório	OlRuleType	Uma constante na enumeração OlRuleType que determina se a regra é aplicada ao envio ou recebimento de uma mensagem.

Valor de retorno

Um objeto Rule que representa a nova regra criada recentemente.

Comentários

O parâmetro RuleType da regra adicionada determina ações de regra válidas, condições de regra e condições de exceção de regra que podem ser associadas ao objeto Rule .

Quando uma regra é adicionada à coleção, a Rule da nova regra é 1. O ExecutionOrder de outras regras na coleção é incrementado em 1.

Exemplo

O exemplo de código a seguir no VBA (Visual Basic for Applications) usa o modelo de objeto Rules para criar uma regra. O exemplo de código usa os objetos RuleAction e RuleCondition para especificar uma regra que encaminha mensagens de um remetente específico para uma pasta específica, a menos que a mensagem contenha determinados termos no assunto. Lembre-se de que o exemplo de código pressupõe que já exista uma pasta "Dan" na Caixa de Entrada.

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

Confira também

Objeto Rules

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.