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

Objeto Items

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.