Geburtage von Kontakten nach Kalender

Gar nicht…
bzw. die werden eigentlich automatisch angezeigt…
Solange folgendes zutrifft:
-Der entsprechende Kontaktordner muss die Option EMail Adressbuch aktiviert haben
-Das geburtstagsdatum ist auch im Feld Geburtstag eingetragen
-Du hast NICHT den Serientyp für diesen Geburtstag geändert.

Peter

Hi, die ANTWORT AUF DEIN PROBLEM findest du hier, hatte das selbe…
— ist kopiert —

Ein kleines Outlook-VBA Makro erledigt das für uns. Der \“Trick\“ hierbei ist: Outlook erzeugt automatisch einen jährlichen Termin im Kalender, wenn man manuell einen Geburtstag eingibt und den Kontakt dann speichert. Durch den Import haben aber alle Kontakte nun schon einen Geburtstag. Man müsste jeden Kontakt öffnen, sich das aktuell eingetragene Geburtsdatum merken, es durch ein beliebiges Datum ersetzen, danach wieder das richtige Datum eintippen (jetzt erkennt Outlook intern eine Änderung des Kontaktes), dann den Kontakt speichern.
Genau das erledigt dieses Makro für uns.
===================================================================
Sub BirthdayImport()
\‘ Quelle: Unbekannter Autor – Vielen Dank!
\‘ Ich habe nur die Kommentare und die Messageboxen hinzugefügt

MsgBox \“Dieses Makro erzeugt jährliche Termine aus den Geburtstagen der Kontakte.\“ & vbCrLf & \“Wählen Sie im folgenden Dialog den Kontakteordner aus, den dieses Makro durchsuchen soll.\“, vbInformation, \“Geburtstage im Kalender eintragen\“

Dim myFolder As MAPIFolder
\‘ Öffne Ordner-Dialog zum Auswählen des Kontakte-Ordners
Set myFolder = Session.PickFolder
For i = myFolder.Items.Count To 1 Step -1
If myFolder.Items(i).Class = 40 Then
myFolder.Items(i).Display
\‘ den richtigen Geburtstag in mybirthday merken
mybirthday = myFolder.Items(i).Birthday
\‘ Geburtstag mit beliebigem Datum überschreiben,
\‘ um eine Änderung zu erzeugen
myFolder.Items(i).Birthday = \“12.12.2000 \“
\‘ nun wieder richtiges Datum aus mybirthday eintragen
myFolder.Items(i).Birthday = mybirthday
\‘ Kontakt erneut speichern.
\‘ Jetzt arbeitet Outlook im Hintergrund automatisch und erstellt
\‘ einen jährlichen Eintrag im Kalender
myFolder.Items(i).Save
\‘ Kontakt schließen
myFolder.Items(i).Close 0
End If
\‘ zum nächsten Kontakt gehen und alles wieder von vorne
Next i

MsgBox \“Fertig!\“ & vbCrLf & \“Es wurden \“ & myFolder.Items.Count & \“ Kontakte durchsucht.\“, vbInformation, \“Information\“

End Sub
=========================================================

Installation:
bullet Öffnen Sie Ihr Outlook
bullet Drücken Sie die Tastenkombination Alt + F11
bullet Klappen Sie links oben das Projekt solange auf, bis Sie \“This Outlook Session\“ oder \“Diese Outlook Sitzung\“ sehen.
bullet Kopieren Sie alles in dem gelben Fenster oben in diese Outlook Sitzung
bullet Klicken Sie nun Extras / Verweise
bullet Suchen Sie die Microsoft Outlook 10 Object Library (oder Microsoft Outlook 11 Object Library) und hake sie an.
bullet Schließen Sie den VBA Editor und speichern Sie die Änderung
bullet Starten Sie das Makro mit der Tastenkombination Alt + F8 (oder: Extras / Makro / Makros)

Dann lösch doch alle Geburtstage aus dem Kalender, bevor du das VBA ausführst 😉

MIt freundlichen Grüßen

Mestro

in der Ornerliste mit rechtsklick den ornder Kalender aufrufen
im Menü erweiterte Suche auswählen in suche nach
geburts eingeben
start anklicken
und die ergebnisse wieder mit kontexmenü (rechtsklick-> menü -> löschen)
entfernen
Gruß Singlefire