Makro periodisch ausfürhen und Problem mit .Save

Moin…

  1. Ich durchsuche per Makro nen Ordner nach Terminen und mache dann bei allen
    per .ReminderSet = False die Erinnerung aus, was ich anschließend
    per .Save abspeichern will. Aber irgendwie funktioniert das nicht.
    Weiss jmd Rat ?

Dim objNS As NameSpace
Set objNS = Application.GetNamespace(„MAPI“)
Set persOrd = objNS.Folders(„persönliche Ordner“)
Set Kalender = persOrd.Folders(„Kalender“)
Set Kalender_Privat = Kalender.Folders(„Privat“)
Set Termine = Kalender_Privat.Items
Dim Termin As Object

Anzahl = Termine.Count
For i = 1 To Anzahl
Termine(i).ReminderSet = False
Termine(i).Save
Next i

  1. Dieses Makro soll in Outlook im Hintergrund alle x Minuten druchlaufen. Wie
    krieg ich das hin. Wenn ich Schleifen mit Zeitabfragen bastel, dann frisst
    es überlst Resourcen und mit der „Sleep“ Funktion leg ich ja komplett Outlook
    lahm :-/ Jmd ne Idee ?