Outlook2003で、連絡先を一括でインポートしました。

質問

Outlook2003で、連絡先を一括でインポートしました。
手動で連絡先を追加した時には予定表に自動で誕生日が追加されるのに、インポートでは誕生日のデータが予定表に反映されませんでした。
連絡先には誕生日が表示されていますが、予定表には誕生日が表示されていない状態です。
どうすれば予定表にも反映されるようになるのでしょうか。

回答No.1

10CubeLeaf

以下のようなマクロでできるでしょう。このマクロは誕生日と記念日の値として同じものを設定して保存することにより、予定表に誕生日や記念日を追加します。

Public Sub ResetBirthDayAndAnniversary()
Dim objContact As Object 'As ContactItem
For Each objContact In Session.GetDefaultFolder(olFolderContacts).Items
If TypeName(objContact) = "ContactItem" Then
If objContact.Birthday <> #1/1/4501# Then
objContact.Birthday = objContact.Birthday
objContact.Save
End If
If objContact.Anniversary <> #1/1/4501# Then
objContact.Anniversary = objContact.Anniversary
objContact.Save
End If
End If
Next
End Sub

お礼

素早い回答、ありがとうございます。
しかし、うまく動きませんでした。
マクロを実行しても何も変化しませんでした。
わざわざ教えていただいたのに、すみません。