L'itération est rapidement via Outlook éléments de rendez-vous

J'ai écrit une macro qui parcourt un utilisateurs civils et fait des modifications aux entrées de fufil un certain critère.

Le problème est que lorsque le calendrier est très grand, cela prend du temps pour le faire. Je ne semble pas être en mesure de filtrer les rendez-vous en raison oAppointmentItems semble à stocker des entrées comme ils ont été créés, ce qui n'est pas nécessairement le même ordre que lorsqu'ils commencent.

Le code que j'utilise est: est-ce

Dim oOL As New Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oAppointments As Object
Dim oAppointmentItem As Outlook.AppointmentItem

Set oNS = oOL.GetNamespace("MAPI")
Set oAppointments = oNS.GetDefaultFolder(olFolderCalendar)

For Each oAppointmentItem In oAppointments.Items

    DoEvents
    ' Something here
Next

Set oAppointmentItem = Nothing
Set oAppointments = Nothing
Set oNS = Nothing
Set oOL = Nothing

Court de retrait de la DoEvents (qui signifie seulement que Outlook semble verrouiller jusqu'à l'utilisateur) est il possible que je peux accélérer les choses en appliquant un certain genre de filtre? Par exemple, les rendez-vous qui, au départ, dans l'avenir.

OriginalL'auteur Richard | 2009-12-18

  1. 14

    Vous pouvez Restreindre l'utilisation de filtre. Noter que les dates sont au format mois /jour /année et qu'ils sont filtrés comme des chaînes de caractères, même si stocké en tant que dates:

    Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")

Set olRecItems = olNS.GetDefaultFolder(olFolderTasks)
strFilter = "[DueDate] > '1/15/2009'"
Set olFilterRecItems = olRecItems.Items.Restrict(strFilter)


For i = 1 To olFilterRecItems.Count
  <...>

    Plus d'informations: http://msdn.microsoft.com/en-us/library/bb220369.aspx

    C'était EXACTEMENT ce que je cherchais pour aujourd'hui! Cela m'a évité beaucoup de problèmes. Une chose que je constate, c'est que je ne peux pas le faire fonctionner avec un filtre de date à l'aide de =, et il est difficile d'obtenir une date exacte (semble dépendre de savoir si ils sont d'une date ou date/heure dans Outlook). Comme > Date - 1 jour et < Date de retour avec juste la Date, alors que la Date > Date Et la Date de < la Date du jour + 1 jour va retourner les articles avec Date/Heure
    À l'aide de la liaison anticipée en VBA, comment doit-olRecItems être DIM avais ? (Outlook.???). Merci..
    comme Outlook.MAPIFolder autant que je sache.

    OriginalL'auteur Fionnuala

  2. 0

    Hey n'arrivais pas à des tâches de travail, mais cela semble fonctionner sur rendez-vous
    pleine explication

    Dim myStart As Date
Dim myEnd As Date

myStart = Date
myEnd = DateAdd("d", 30, myStart)

Debug.Print "Start:", myStart
Debug.Print "End:", myEnd

'Construct filter for the next 30-day date range
strRestriction = "[Start] >= '" & _
Format$(myStart, "mm/dd/yyyy hh:mm AMPM") _
& "' AND [End] <= '" & _
Format$(myEnd, "mm/dd/yyyy hh:mm AMPM") & "'"
'Check the restriction string
Debug.Print strRestriction

Const olFolderCalendar = 9
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")

Set oCalendar = olNS.GetDefaultFolder(olFolderTasks)

Set oItems = oCalendar.items
oItems.IncludeRecurrences = True
' oItems.Sort "[Start]" ' commented out  worked for me.. 
'Restrict the Items collection for the 30-day date range
Set oItemsInDateRange = oItems.Restrict(strRestriction)
Debug.Print oItemsInDateRange.Count

    OriginalL'auteur ozmike