Propiedad RecurrencePattern.DayOfWeekMask (Outlook)
Devuelve o establece una constante OlDaysOfWeek que representa la máscara de los días de la semana en que ocurre la cita o tarea periódica. Lectura y escritura.
Sintaxis
expresión. DayOfWeekMask
Expresión Variable que representa un objeto RecurrencePattern .
Comentarios
DayOfWeekMask se debe establecer después de que se ha establecido la propiedad RecurrenceType y antes del PatternEndDate y PatternStartDate se establecen las propiedades.
Patrones mensual y anual sólo son válidos para un solo día. Los patrones semanales sólo son válidos como el operador o de la propiedad DayOfWeekMask.
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, PatternStartDate, PatternEndDate, Duration, StartTime, EndTime y Subject se establecen, la cita se guarda y, a continuación, se muestra con el patrón: "Se produce todos los lunes, miércoles y viernes efectivos 7/10/2006 hasta el 25/8/2006 de 2:00 p.m. a 3:00 p.m.".
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
De forma similar al último ejemplo, este ejemplo Visual Basic para aplicaciones también utiliza GetRecurrencePattern para obtener el objeto RecurrencePattern del objeto AppointmentItem recién creado. Se establecen las propiedades RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, duración, StartTime, EndTime y Subject, se guarda la cita y, a continuación, se muestra con el patrón: "se produce los lunes, el martes, el miércoles, el jueves y el viernes desde 10/7/2006 hasta el 4/8/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
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.