BIRTHDAY IN CALENDER

[E.Zenker]

i found this code on outlook.net
can anyone be so kind and help me to extend the code to

->check if the birthday is already in the calender
->if it is there
->go to the next contakt.

To avoid double birthdayentries.

Thanks for your replay
E.Zenker

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

 

[Chuck Davis]

-----Original Message-----
i found this code on outlook.net
can anyone be so kind and help me to extend the code to

->check if the birthday is already in the calender
->if it is there
->go to the next contakt.

To avoid double birthdayentries.

Thanks for your replay
E.Zenker

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




.

In Outlook 2003, open the contact. Click on the Details
tab. midpoing on the right is a field called Birthday:
Enter the mo/da and it will create a recurring occurance.
In the Week view, it will appear at the top of the day. (I
haven't looked at other views)

 

[E.Zenker]

Thanks for your answer
I#m working with OL2002 (XP) and there are too many contacts to open each
manually therefore the macrocode! and still the problem with double
birthdayentries.

-----Original Message-----
i found this code on outlook.net
can anyone be so kind and help me to extend the code to

->check if the birthday is already in the calender
->if it is there
->go to the next contakt.

To avoid double birthdayentries.

Thanks for your replay
E.Zenker

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




.

In Outlook 2003, open the contact. Click on the Details
tab. midpoing on the right is a field called Birthday:
Enter the mo/da and it will create a recurring occurance.
In the Week view, it will appear at the top of the day. (I
haven't looked at other views)