Propiedad Items.IncludeRecurrences (Outlook)
Devuelve un valor Boolean que indica True si la colección Items debe incluir patrones de frecuencia. Lectura y escritura.
Sintaxis
expresión. IncludeRecurrences
Expresión Variable que representa un objeto Items .
Comentarios
Esta propiedad sólo tiene efecto si la colección Items contiene citas y no está ordenada por una propiedad que no sea de Inicio en orden ascendente. El valor predeterminado es False. Utilice esta propiedad cuando desee recuperar todas las citas de una fecha determinada, donde las citas periódicas no aparecerían normalmente debido a no están asociados con ninguna fecha específica. Si necesita ordenar y filtrar elementos de cita que contienen citas periódicas, debe hacerlo en este orden: ordenar los elementos en orden ascendente, establezca IncludeRecurrences en True y, a continuación, filtrar los elementos. Para obtener un ejemplo de código que muestre este orden, vea el segundo ejemplo siguiente. Si la colección incluye citas periódicas sin fecha de finalización, al establecer la propiedad en True puede causar la colección sea de recuento infinito. Asegúrese de incluir una prueba para esto en cualquier bucle. No debe usar la propiedad Count de la colección Items al recorrer en iteración la colección Items con la propiedad IncludeRecurrence establecida en True. El valor de Count será un valor indefinido.
Precaución
[!PRECAUCIóN] Filtrado en una lista ordenada de repeticiones hará que la propiedad IncludeRecurrences no funcione según lo previsto. Por ejemplo, la siguiente secuencia devolverá todas las repeticiones de citas; periódica y no periódica: (1) Ordenar por propiedad Start (2) Establecer propiedad en False (3) llamar a Restrict (es decir, filtrar).
Ejemplo:
En el ejemplo siguiente de Visual Basic para Aplicaciones (VBA), se muestra el asunto de las citas que tienen lugar entre hoy y mañana, incluidas las citas periódicas.
Sub DemoFindNext()
Dim myNameSpace As Outlook.NameSpace
Dim tdystart As Date
Dim tdyend As Date
Dim myAppointments As Outlook.Items
Dim currentAppointment As Outlook.AppointmentItem
Set myNameSpace = Application.GetNamespace("MAPI")
tdystart = VBA.Format(Now, "Short Date")
tdyend = VBA.Format(Now + 1, "Short Date")
Set myAppointments = myNameSpace.GetDefaultFolder(olFolderCalendar).Items
myAppointments.Sort "[Start]"
myAppointments.IncludeRecurrences = True
Set currentAppointment = myAppointments.Find("[Start] >= """ & _
tdystart & """ and [Start] <= """ & tdyend & """")
While TypeName(currentAppointment) <> "Nothing"
MsgBox currentAppointment.Subject
Set currentAppointment = myAppointments.FindNext
Wend
End Sub
En el ejemplo siguiente, se muestra el orden por el que ordenar y filtrar los elementos de cita que contienen citas periódicas.
Sub SortAndFilterAppointments()
Dim myNameSpace As Outlook.NameSpace
Dim myAppointments As Outlook.Items
Set myNameSpace = Application.GetNamespace("MAPI")
Set calendarItems = myNameSpace.GetDefaultFolder(olFolderCalendar).Items
calendarItems.Sort "[Start]"
calendarItems.IncludeRecurrences = True
Set restrictedItems = calendarItems.Restrict("[Organizer]='Dan Wilson'")
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.