Geburtstage von Kontakten im Outlook Kalender anzeigen

Wenn in einem Outlook Kontakt ein Geburtstag eingetragen wird und anschließend der Kontakt gespeichert wird, erzeugt Outlook anschließend automatisch ein Kalendereintrag für den Geburtstag. Soweit so gut. Wenn man jetzt Kontakte per PST oder andere Form in Outlook importiert, die Geburtstage enthalten, werden diese nicht automatisch in den Kalender eingetragen. Man müsste nun in jedem Kontakt manuell nochmal das Geburtstagsfeld editieren und den Kontakt speichern.

Das ist natürlich bei einer Menge von Kontakten sehr aufwändig! Deshalb habe ich im Internet ein VBA Makro für Outlook gefunden, welches das genau automatisiert für einen vorher ausgewählten Kontakte-Ordner durchführt.

Um das VBA Makro zu nutzen, muss man es auf folgende Weise in Outlook einfügen:

1. ALT+F11 drücken (damit startet der Visual Basic Editor)
2. Im linken Bereich den Baum „Projekt1″ solange expandieren, bis „ThisOutlookSession“ erscheint
3. Doppelklick auf „ThisOutlookSession“ (damit öffnet sich im rechten Bereich ein Editorfenster
4. Im Editorfenster unten stehenden Code per Copy & Paste einfügen
5. Speichern und Editorfenster schließen

Nun kann man das Makro im Outlook starten, dazu:

1. Im Menü „Extras“ -> „Makro“ -> „Makros“ auswählen
2. In der sich öffnenden Dialogbox steht dann „ThisOutlookSession.BirthdayImport“ -> Hier einfach die Schaltfläche „Ausführen“ anklicken
3. Im nun öffnenden Dialog den Kontakte-Ordner auswählen, in dem die Kontakte mit den Geburtstagen für den Kalender liegen
4. Go!

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 = "12.12.2000 "
myFolder.Items(i).Birthday = mybirthday
myFolder.Items(i).Save
myFolder.Items(i).Close 0
Next i
End Sub

Hinweis: Ich übernehme keinerlei Haftung für irgendwelche auftretenden Schäden durch die Benutzung des hier beschriebenen Vorgehens!