Outlook: Geburtstagserinnerungen nach Import nicht vorhanden

0

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.

Teilen.

Über den Autor

Seit der Ausbildung zum Fachinformatiker Systemintegration (2002-2005) bei der DaimlerChrysler AG, beruflich im Bereich der E-Mail Kommunikation (Exchange, Linux) sowie des ActiveDirectory, mit entsprechenden Zertifizierungen (MCSE 2003, MCITP Ent.-Admin 2008, MCSE 2012, LPIC 1-3) tätig. Abgeschlossenes Studium zum Master of Science der IT-Management an der FOM sowie zertifizierter Datenschutzbeauftragter. Aktuell im Projektmanagement tätig.

Antworten