Sobald man einen Kontakt in Outlook erstellt diesem ein Geburtsdatum zuweißt, erstellt Outlook automatisch Geburtstagserinnerungen. Importiert man jedoch die Kontakte z.B. aus einer PST-Datei werden die Geburtstagserinnerungen jedoch nicht erstellt.
Auf der Suche nach einer Lösung bin ich auf ein VBA-Script gestoßen, dass die Geburtstage alle nachträgt.
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
Das Macro kann jedoch nur ausgeführt werden, wenn die Sicherheit der Macros herunter gesetzt wird.