Outlook Geburtstage Import
Aus SGiersch WIKI
Nach einem Import von Kontakten in Outlook werden die Geburtstage nicht im Kalender angezeigt.
Dies lässt sich mit einem kleinen Makro nachholen, funktioniert unter Outlook 2007.
Drücke die Tastenkombination Alt + F11 und wähle aus dem Menü Einfügen den Punkt „Modul“ aus.
Füge nun folgenden Code in das Modul.
Sub Birthday()
Dim olFolder As MAPIFolder
Set olFolder = Application.ActiveExplorer.CurrentFolder
On Error Resume Next
If olFolder.DefaultItemType = olContactItem Then
For x = 1 To olFolder.Items.Count
If olFolder.Items(x).Class = 69 Then GoTo weiter
If olFolder.Items(x).Birthday = "01.01.4501" Then GoTo weiter
olFolder.Items(x).Display
Datum = olFolder.Items(x).Birthday
olFolder.Items(x).Birthday = "01.01.4501"
olFolder.Items(x).Save
olFolder.Items(x).Birthday = Datum
olFolder.Items(x).Save
olFolder.Items(x).Close (olSave)
weiter:
Next x
Else
MsgBox "Sie sind nicht im Kontakte-Ordner"
End If
End Sub
Speicher nun das Projekt und schließe dann den VBA-Editor.
Wechsel nun in den Kontaktordner und drücke die Tastenkombination Alt + F8.
Wähle hier das Makro mit einem Doppelklick aus.
Nun sollten alle Geburtstage wieder eingetragen sein.
