Birthday aus Kontakte

[AAC2000]

hallo

Und zwar ich habe ein Problem ich möchte alle meinen geburtstag datums aus meinen Telefon Kontakten automatisch integieren in den kalender damit ich immer benachrichtiget wenn eine geb heute ist .... gibt es da ne lösung oder nen tool hab noch nicht gefunden was wirklich funtzt ....

mfg

[Musel]

Was ist mit dem hier? : http://forum.xda-developers.com/showthread.php?t=605879

[Chiller]

Outlook macht es doch automatisch, ansonsten benutze ich den Kalender von SBSH, der zeigt die geb. auch an

[GRLW]

Outlook macht es automatisch - aber, wenn aus irgendeinem Grund die Geburtstage aus dem Kalender gelöscht sind, legt OL den Termin erst wieder an, wenn der Kontakt editiert und neu gespeichert wird. Ich habe dafür mal ein OL-Makro gesehen und es selbst mit Erfolg laufen lassen.

Achtung: Nur für Fortgeschrittene Windows-Anwender:

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.2005"
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
MsgBox ("Fertig")

End Sub


Eingabe in den Makroeditor (Alt+F11), dann Kontakte-Seite anzeigen und Makro starten (Extras > Makro > Makros: ThisOutlookSession.Birthday). Ggf. muss vorher die Sicherheitsstufe angepasst werden (Extras > Makro > Sicherheit: Vorübergehend auf niedrigste Stufe setzen).