Results 1 to 7 of 7
  1. #1
    New Lounger
    Join Date
    Sep 2004
    Posts
    10
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Restore birthday alerts (Outlook 2003)

    Edited by HansV to add a subject (besides "Outlook 2003")

    Is there any way to restore birthday alerts once they have been deleted from the calendar? I have lost all of my alerts.

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Restore birthday alerts (Outlook 2003)

    Do you mean that the birthdays are still listed in the calendar, but you don't get reminders? If so, try the following:

    - Close all instances of Outlook.
    - Select Start | Run..
    - Type the following:
    <code>
    "C:Program FilesMicrosoft OfficeOffice11Outlook.exe" /CleanReminders
    </code>
    - Press Enter or click OK.
    - Restart Outlook.

    You should now get reminders again.

    If the birthdays have been deleted, you might check if they're still in the Deleted Items folder. If not, they are probably lost, unless you have an archive or backup copy of your Outlook items (.pst file).

  3. #3
    New Lounger
    Join Date
    Sep 2004
    Posts
    10
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Restore birthday alerts (Outlook 2003)

    Thank you for your reply. The birthdays are listed in the contacts but are not in the calendar. Is there any way to get them back into the calendar other than going to the particular date and listing each one of them?

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Restore birthday alerts (Outlook 2003)

    It would probably be possible to write VBA code that loops through the items in the Contacts folder and creates recurring calendar events from the birthdays. I'm not very good at Outlook VBA, so I hope someone else will pick it up. I might give it a try, but it'll probably take a while. If the number of contacts with birthdays is limited, it's probably faster to enter the calendar items manually... <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

  5. #5
    Plutonium Lounger Leif's Avatar
    Join Date
    Dec 2000
    Location
    U.K.
    Posts
    14,010
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Restore birthday alerts (Outlook 2003)

    You could export your Contacts to a csv file, run a macro to convert it to a suitable calendar format, then import it back into the Calendar. (Export your current calendar as a trial run first to see the required format.)

  6. #6
    5 Star Lounger
    Join Date
    Apr 2003
    Location
    Hampshire, United Kingdom
    Posts
    602
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Restore birthday alerts (Outlook 2003)

    <P ID="edit" class=small>(Edited by Waggers on 22-Feb-07 11:48. adding Microsoft link)</P>Depending how many contacts with birthdays you have, the easiest way might be to re-enter the birthdays in the contacts folder - this will automatically recreate the reminders in your calendar. To do this, the best way is use a custom view for your contacts (perhaps starting with the Phone List view), using the Field Chooser to choose the Birthday field. That way you can edit the birthdays in the table rather than having to open each contact item individually. You don't have to change the dates(!), just confirm the existing ones.

    More information from the MS website: http://office.microsoft.com/training/Train...=RC060823511033
    Waggers
    If at first you do succeed, you&#39;ve probably missed something.

  7. #7
    WS Lounge VIP rory's Avatar
    Join Date
    Dec 2000
    Location
    Burwash, East Sussex, United Kingdom
    Posts
    6,280
    Thanks
    3
    Thanked 191 Times in 177 Posts

    Re: Restore birthday alerts (Outlook 2003)

    Something like this should work:

    <pre>Sub AddBDayReminders()
    Dim fdrContacts As MAPIFolder, fdrCal As MAPIFolder
    Dim itm As ContactItem, bday As AppointmentItem
    Dim pattern As RecurrencePattern
    With Application.GetNamespace("MAPI")
    Set fdrContacts = .GetDefaultFolder(olFolderContacts)
    Set fdrCal = .GetDefaultFolder(olFolderCalendar)
    End With
    For Each itm In fdrContacts.Items
    If itm.Birthday <> DateValue("01/01/4501") Then
    Set bday = fdrCal.Items.Add
    With bday
    .Subject = itm.FullName & "'s birthday"
    Set pattern = .GetRecurrencePattern
    With pattern
    .RecurrenceType = olRecursYearly
    .DayOfMonth = Day(itm.Birthday)
    .MonthOfYear = Month(itm.Birthday)
    End With
    .ReminderSet = True
    .Save
    End With
    End If
    Next itm
    End Sub
    </pre>


    HTH
    Regards,
    Rory

    Microsoft MVP - Excel

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •