Propriedade RecurrencePattern.RecurrenceType (Outlook)

Retorna ou define uma constante OlRecurrenceType que especifica a frequência de ocorrências para o padrão de recorrência. Leitura/gravação.

Sintaxe

expression. RecurrenceType

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

Comentários

Você deve definir a propriedade RecurrenceType antes de definir outras propriedades para um objeto RecurrencePattern. As propriedades de RecurrencePattern que você pode definir subsequentemente depende do valor da RecurrenceType, conforme mostrado na tabela a seguir:

OlRecurrenceType	Propriedades Valid RecurrencePattern
olRecursWeekly	DayOfWeekMask, duração e EndTime, intervalo, NoEndDate, ocorrências, PatternStartDate, PatternEndDate, StartTime
olRecursMonthly	DayOfMonth, duração e EndTime, intervalo, NoEndDate, ocorrências, PatternStartDate, PatternEndDate, StartTime
olRecursMonthNth	DayOfWeekMask, duração e EndTime, intervalo, instância, NoEndDate, ocorrências, PatternStartDate, PatternEndDate, StartTime
olRecursYearly	DayOfMonth, duração e EndTime, intervalo, MonthOfYear, NoEndDate, ocorrências, PatternStartDate, PatternEndDate, StartTime
olRecursYearNth	DayOfWeekMask, duração e EndTime, intervalo, instância, NoEndDate, ocorrências, PatternStartDate, PatternEndDate, StartTime

Exemplo

Este exemplo Visual Basic for Applications usa GetRecurrencePattern para obter o objeto RecurrencePattern recém-criado AppointmentItem. As propriedades , RecurrenceType, DayOfWeekMask, MonthOfYear, Instance, Occurrences, StartTime, EndTime e Subject são definidas, o compromisso é salvo e exibido com o padrão: "Ocorre a primeira segunda-feira de junho a partir de 06/06/2007 até 6/6/2016 das 14:00 às 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

Confira também

Objeto RecurrencePattern

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.