Planen und Verwalten von Ereignissen mittels des Outlook.com-Kalenders
Hi, nachdem es das Problem mit den verschwundenen Kalender-Einträgen ja schon lange gibt, hier noch ein Hinweis zur Lösung bzw. dem Workaround (ohne Gewähr, nutze das Makro aber mit meinem Outlook 2010 und hab es schon an einige Leute weitergegeben).
Ich nutze ab und zu folgendes Makro, welches die Kontakte durchwühlt, das Geburtstag zwischenspeichert, löscht, den Kontakt ohne Geburtsdatum speichert, das gespeicherte alte Datum wieder einfügt und am Ende nochmal speichert. Damit sind dann wieder alle Geburtstage im Kalender...
Hier das Makro:
Sub BirthdayImport()
Dim myFolder As MAPIFolder
Set myFolder = Session.PickFolder
For i = myFolder.Items.Count To 1 Step -1
myFolder.Items(i).Display
mybirthday = myFolder.Items(i).Birthday
myFolder.Items(i).Birthday = "01.01.4501"
myFolder.Items(i).Save
myFolder.Items(i).Birthday = mybirthday
myFolder.Items(i).Save
myFolder.Items(i).Close 0
Next i
End Sub
PS: Das etwas merkwürdige Datum "01.01.4501" setzt das Datum zurück (= Ohne bzw. kein Datum).
Der Hinweis stammt aus dem folgenden Blog:
Viel Erfolg,
Kai