Dear all,
Please help to find solution to organize the Contact's Birthday and Anniversary records to the non-default calendar.
For example,
when I use the script:
I can rebuild contact's birthdays and anniversaries to the default calendar.
I would like to find solution to do the same but for another non-default calendar (such as named "Important dates")
Thanks.
Please help to find solution to organize the Contact's Birthday and Anniversary records to the non-default calendar.
For example,
when I use the script:
Sub AddBirthdaysAnniversaries()
Dim myFolder As MAPIFolder
Set myFolder = Session.PickFolder
For i = myFolder.Items.Count To 1 Step -1
If myFolder.Items(i).Class = 40 Then
' If you want to see that it's working, uncomment this line
myFolder.Items(i).Display
' Copy the correct birthday and anniversary to a variable
mybirthday = myFolder.Items(i).Birthday
myanniversary = myFolder.Items(i).Anniversary
' Set today as the birthday & anniversary
myFolder.Items(i).Birthday = Now
myFolder.Items(i).Anniversary = Now
' Replace 'today' with the correct birthday & anniversary
myFolder.Items(i).Birthday = mybirthday
myFolder.Items(i).Anniversary = myanniversary
' Save and close
myFolder.Items(i).Save
myFolder.Items(i).Close 0
End If
'Repeat with next contact
Next i
End Sub
Dim myFolder As MAPIFolder
Set myFolder = Session.PickFolder
For i = myFolder.Items.Count To 1 Step -1
If myFolder.Items(i).Class = 40 Then
' If you want to see that it's working, uncomment this line
myFolder.Items(i).Display
' Copy the correct birthday and anniversary to a variable
mybirthday = myFolder.Items(i).Birthday
myanniversary = myFolder.Items(i).Anniversary
' Set today as the birthday & anniversary
myFolder.Items(i).Birthday = Now
myFolder.Items(i).Anniversary = Now
' Replace 'today' with the correct birthday & anniversary
myFolder.Items(i).Birthday = mybirthday
myFolder.Items(i).Anniversary = myanniversary
' Save and close
myFolder.Items(i).Save
myFolder.Items(i).Close 0
End If
'Repeat with next contact
Next i
End Sub
I can rebuild contact's birthdays and anniversaries to the default calendar.
I would like to find solution to do the same but for another non-default calendar (such as named "Important dates")
Thanks.