nach jedem Eintrag eine Pause, aber wie nur ?
10.02.2015 14:16:35
Joern
Ich habe mir einen Code im Internet gemopst, der zwar funktioniert aber bei zuviel Einträgen in einem Laufzeitfehler endet. Es wird in Outlook nach Geburtstagseinträgen gesucht und dann das Alter für jeden Eintrag errechnet. Nun hab ich ca. 300 Einträge im Outlook aber nach 170 stoppt das Makro und gibt mir einen Laufzeiutfehler aus. Kann man nach jeder Berechnung eine Pause einbauen, ich poste mal den Code:
'Durchlaufen aller Kalendereinträge und suchen nach Einträgen die im Betreff "Geburtstag" enthalten
For i = myitems.Count To 1 Step -1
If InStr(myitems(i).Subject, "Geburtstag") Then
myitems(i).Display
'----- Alter ermitteln
AddAgeYearOfBirth = myitems(i).GetRecurrencePattern.PatternStartDate
Age = DateDiff("yyyy", AddAgeYearOfBirth, Now())
myitems(i).Location = "[Alter: " + Age + "]"
myitems(i).Save
myitems(i).Close 0 'geöffnete Datensätze wieder schliessen
AddAgeCounter = AddAgeCounter + 1 'Anzahl der geänderten Einträge mitzählen
End If
Oder hat jemand eine andere Idee wie ich diesen Laufzeitfehler unterbinden kann?! Da wär ich sehr dankbar :-)
Viele Grüße Jörn