BIRTHDAY IN CALENDER

E

E.Zenker

Hi
i have found the code:

Dim Verz As MAPIFolder
Dim i As Integer
Dim Gebdat As Date
Set Verz = Session.PickFolder
For i = Verz.Items.Count To 1 Step -1
If Verz.Items(i).Class = 40 Then
Verz.Items(i).Display
Gebdat = Verz.Items(i).Birthday
Verz.Items(i).Birthday = "12.12.2000 "
Verz.Items(i).Birthday = Gebdat
Verz.Items(i).Save
Verz.Items(i).Close 0
End If
Next i
End Sub

to write the birthdays of a folder to the calender.
how to modify the code to chek if the birthday is already in the calender
folder and then go to the next contakt.not to have double birthdayentries!!
 
Top