Birthday and Anniversary records

Status
Not open for further replies.

snvakula

Member
Outlook version
Outlook 2013 64 bit
Email Account
Outlook.com (as MS Exchange)
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:

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



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.
 
The code to 'touching' the contacts and forcing the contact to use its internal code to create the events. You need to use a macro that watches the calendar folder for birthdays / anniversaries and moves them to a new folder.

If this is basically a one time thing, I'd manually move them. Otherwise, this macro could be tweaked - Copy new appointments to another calendar using VBA - Slipstick Systems - to something like this.

If right(Item.Subject, 8) = "Birthday" Then
Item.Move CalFolder

End If
 
Diane,

thank you very much!

There are exactly what I want. I'm happy :)
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S Birthday and Anniversary fields Exchange Server Administration 3
G Add contacts birthday to calendar Using Outlook 4
G Create ordinal numbers for birthday Outlook VBA and Custom Forms 2
G Send a greeting message to a contact on birthday Outlook VBA and Custom Forms 5
Fozzie Bear Sharing Birthday Calendar Using Outlook.com accounts in Outlook 3
A add birthday to outlook contacts Using Outlook 1
A Birthday reminders now ending after 10 years?? Using Outlook 4
B Birthday dates automatically (and improperly) placed in Birthday Details Using Outlook 2
T Birthday events in Calendar Using Outlook 4
P [SOLVED] Outlook-Hotmail Birthday Calendar changed by one day Using Outlook.com accounts in Outlook 8
H i ditect birthday appointments from calendar appointments Outlook VBA and Custom Forms 4
M Birthday series in calendar Outlook VBA and Custom Forms 1
V Birthday Field - How can one set it without generating a calendar Outlook VBA and Custom Forms 1
R adding anniversary dates in outlook Using Outlook 2
T Uploading Outlook 2016 Contacts to Exchange Server Drops "Company" field data in 30% of records Exchange Server Administration 4
M What is the best way to find all records of an e-mail for our company? Outlook VBA and Custom Forms 2
M Customize Comments / Notes Section time stamp on Contact Records BCM (Business Contact Manager) 0
K Excel Import Option: Need Help Updating Existing Records BCM (Business Contact Manager) 0
N Starting out with BCM - Customizing contact records BCM (Business Contact Manager) 1
C BCM updated records not refreshing on other PCs BCM (Business Contact Manager) 2
M Calendar navigation displays previous field records.check calendar is shared.. Using Outlook 3
D BCM Records BCM (Business Contact Manager) 2
N format mailing labels from contact records BCM (Business Contact Manager) 1
S Sharing BCM contacts and linking items to records BCM (Business Contact Manager) 1
J pulling SQL records Outlook VBA and Custom Forms 1

Similar threads

Back
Top