Método Rules.Create (Outlook)
Crea un objeto Rule con el nombre especificado por Name y el tipo de regla especificado por RuleType.
Sintaxis
expresión. Create( _Name_ , _RuleType_ )
Expresión Variable que representa un objeto Rules .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Name | Obligatorio | String | Identificador de cadena para la regla, que estará representado por Rule.Name después de la creación de la regla. Los nombres de las reglas de una colección no son únicos. |
| RuleType | Obligatorio | OlRuleType | Constante de la enumeración OlRuleType que determina si la regla se aplica al enviar o recibir un mensaje. |
Valor devuelto
Objeto Rule que representa la regla que acaba de crear.
Comentarios
El parámetro RuleType de la regla agregada determina acciones de regla válidas, condiciones de regla y condiciones de excepción de regla que se pueden asociar con el objeto Rule .
Cuando se agrega una regla a la colección, el Rule.ExecutionOrder de la nueva regla es 1. La propiedad ExecutionOrder de las demás reglas en la colección se incrementa en 1.
Ejemplo:
En el ejemplo de código siguiente de Visual Basic para Aplicaciones (VBA) se usa el modelo de objetos Rules para crear una regla. En el ejemplo de código se usan los objetos RuleAction y RuleCondition para especificar una regla que mueve los mensajes de un remitente específico a una carpeta concreta, a menos que el mensaje contenga determinados términos en el asunto. Observe que en el ejemplo de código se supone que ya existe una carpeta denominada "Dan" bajo la Bandeja 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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.