How to recreate Birthdays Appointments after importing Contacts

[Alexey Korobov]

I have imported contacts from .pst file, but Outlook has not created the
appointmens for birthdays. How can I automate this?

 

[Roady [MVP]]

See http://www.rsoutlook.com/us/prods/prod05.html

 

[Alexey Korobov]

Can I do this for free?

See http://www.rsoutlook.com/us/prods/prod05.html

 

[Roady [MVP]]

AFAIK; only when you know how to program yourself.

 

[Diane Poremsky [MVP]]

you could open, edit and save each item so outlook recreates them... but
unless you have nothing better to do with your time, the add-in is well
worth it.









** Please include your Outlook version, Account type, and Windows Version
when requesting assistance **

 

[Alexey Korobov]

If smb knows, how can I do this automaticly? I have wrote the script that
changes the birthday date, but it doesn't recreates appointmenst. How can I
initiate this automaticly:
Sub birth()

Dim olns As Outlook.NameSpace
Dim oConItems As Outlook.Items
Dim iNumItems As Integer
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set oConItems = olns.GetDefaultFolder(olFolderContacts).Items
iNumItems = oConItems.Count
For I = 1 To iNumItems
Set oCurItem = oConItems.Item(I)
If (oCurItem.Birthday <> "01.01.4501") Then
'MsgBox oCurItem.Birthday
brth = oCurItem.Birthday
oCurItem.Birthday = "01.01.4501"
oCurItem.Close olSave
oCurItem.Birthday = brth
oCurItem.Close olSave

End If

Next
Set oConItems = Nothing
Set olns = Nothing
Set ol = Nothing


End Sub