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
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.