AW: Birthday aus Kontakte
AW: Birthday aus Kontakte
Outlook macht es doch automatisch, ansonsten benutze ich den Kalender von SBSH, der zeigt die geb. auch an
AW: Birthday aus Kontakte
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.
:rolleyes: 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).