Propriedade RecurrencePattern.DayOfWeekMask (Outlook)
Retorna ou define uma constante OlDaysOfWeek que representa a máscara dos dias da semana em que ocorre o compromisso ou a tarefa recorrente. Leitura/gravação.
Sintaxe
expression. DayOfWeekMask
Expressão Uma variável que representa um objeto RecurrencePattern .
Comentários
O DayOfWeekMask deve ser definida depois que a propriedade RecurrenceType tiver sido definida e antes de PatternEndDate e PatternStartDate propriedades são definidas.
Padrões mensais e anuais só são válidos para um único dia. Padrões semanais só são válidos como o ou de DayOfWeekMask.
Exemplo
Este exemplo Visual Basic for Applications usa GetRecurrencePattern para obter o objeto RecurrencePattern recém-criado AppointmentItem. As propriedades, RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, duração, StartTime, EndTime e assunto são definidas, o compromisso é salvo e exibido com o padrão: "ocorre a partir de cada segunda-feira, quarta-feira e sexta-feira 10/7/2006 até 8/25/2006 de 2:00 PM para 3:00 PM."
Sub RecurringAppointmentEveryMondayWednesdayFriday()
Dim oAppt As AppointmentItem
Dim oPattern As RecurrencePattern
Set oAppt = Application.CreateItem(olAppointmentItem)
Set oPattern = oAppt.GetRecurrencePattern
With oPattern
.RecurrenceType = olRecursWeekly
.DayOfWeekMask = olMonday Or olWednesday Or olFriday
.PatternStartDate = #7/10/2006#
.PatternEndDate = #8/25/2006#
.Duration = 60
.StartTime = #2:00:00 PM#
.EndTime = #3:00:00 PM#
End With
oAppt.Subject = "Recurring Appointment Monday Wednesday Friday"
oAppt.Save
oAppt.Display
End Sub
Semelhante ao exemplo a última, este exemplo Visual Basic for Applications também usa GetRecurrencePattern para obter o objeto RecurrencePattern recém-criado AppointmentItem. As propriedades, RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, duração, StartTime, EndTime e assunto são definidas, o compromisso é salvo e exibido com o padrão: "ocorre a partir de cada segunda-feira, terça-feira, quarta-feira, quinta-feira e sexta-feira 10/7/2006 até 8/4/2006."
Sub RecurringEventEveryWeekday()
Dim oPattern As Outlook.RecurrencePattern
Dim oAppt As Outlook.AppointmentItem
Set oAppt = Application.CreateItem(olAppointmentItem)
Set oPattern = oAppt.GetRecurrencePattern
With oPattern
.RecurrenceType = olRecursWeekly
.DayOfWeekMask = olMonday Or olTuesday Or olWednesday Or olThursday Or olFriday
.PatternStartDate = #7/10/2006#
.PatternEndDate = #8/4/2006#
.Duration = 1440 'Duration in minutes, for all day event = 24 * 60
.StartTime = #12:00:00 AM#
.EndTime = #12:00:00 AM#
End With
oAppt.Subject = "Recurring Event Every Weekday"
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.