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

Objeto RecurrencePattern

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.