Propiedad RecurrencePattern.RecurrenceType (Outlook)
Devuelve o establece una constante OlRecurrenceType que especifica la frecuencia de repeticiones del patrón de frecuencia. Lectura y escritura.
Sintaxis
expresión. RecurrenceType
Expresión Variable que representa un objeto RecurrencePattern .
Comentarios
Debe establecer la propiedad RecurrenceType antes de establecer otras propiedades para un objeto RecurrencePattern. Las propiedades de RecurrencePattern que puede establecer depende del valor de RecurrenceType, como se muestra en la siguiente tabla:
| OlRecurrenceType | Propiedades válidas de RecurrencePattern |
|---|---|
| olRecursWeekly | DayOfWeekMask, duración, hora de finalización, intervalo, NoEndDate, repeticiones, PatternStartDate, PatternEndDate, StartTime |
| olRecursMonthly | DayOfMonth, duración, hora de finalización, intervalo, NoEndDate, repeticiones, PatternStartDate, PatternEndDate, StartTime |
| olRecursMonthNth | DayOfWeekMask, duración, hora de finalización, intervalo, instancia, NoEndDate, repeticiones, PatternStartDate, PatternEndDate, StartTime |
| olRecursYearly | DayOfMonth, duración, hora de finalización, intervalo, MonthOfYear, NoEndDate, repeticiones, PatternStartDate, PatternEndDate, StartTime |
| olRecursYearNth | DayOfWeekMask, duración, hora de finalización, intervalo, instancia, NoEndDate, apariciones, PatternStartDate, PatternEndDate, StartTime |
Ejemplo:
En este ejemplo de Visual Basic para Aplicaciones se usa GetRecurrencePattern para obtener el objeto RecurrencePattern del objeto AppointmentItem recién creado. Las propiedades, RecurrenceType, DayOfWeekMask, MonthOfYear, Instance, Occurrences, StartTime, EndTime y Subject se establecen, la cita se guarda y, a continuación, se muestra con el patrón: "Se produce el primer lunes de junio del 6/1/2007 hasta el 6/6/2016 de 14:00 a 17:00".
Sub RecurringYearNth()
Dim oAppt As AppointmentItem
Dim oPattern As RecurrencePattern
Set oAppt = Application.CreateItem(olAppointmentItem)
Set oPattern = oAppt.GetRecurrencePattern
With oPattern
.RecurrenceType = olRecursYearNth
.DayOfWeekMask = olMonday
.MonthOfYear = 6
.Instance = 1
.Occurrences = 10
.Duration = 180
.PatternStartDate = #6/1/2007#
.StartTime = #2:00:00 PM#
.EndTime = #5:00:00 PM#
End With
oAppt.Subject = "Recurring YearNth Appointment"
oAppt.Save
oAppt.Display
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.