Results 1 to 4 of 4
  1. #1
    Lounger
    Join Date
    Jan 2001
    Location
    Brecon, South Wales, UK
    Posts
    41
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Sorting anniversaries (2003 SP2)

    Am I missing something? Is there some easy way to create a calendar view in Outlook which sorts anniversaries (e.g. birhdays) in month-day order. All my efforts produce a listing sorted first on start-year, which isn't what I want.

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

    Re: Sorting anniversaries (2003 SP2)

    No, you're not missing anything. Microsoft doesn't provide any way to do this, except by editing each individual birthday to have the same start year.

  3. #3
    4 Star Lounger
    Join Date
    Jan 2001
    Location
    Tacoma, Washington, USA
    Posts
    431
    Thanks
    0
    Thanked 3 Times in 3 Posts

    Re: Sorting anniversaries (2003 SP2)

    I don't know if it'll help, but what we do for anniversaries and birthdays is make each one a reoccurring event and then customize a view to show them by subject and by reccurrence pattern. It sorts them alphabetically by month so I'm not sure if that'll be enough for you but it works out good for what we need.
    Daisy

  4. #4
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Sorting anniversaries (2003 SP2)

    <P ID="edit" class=small>(Edited by JohnBF on 01-May-07 07:36. )</P>Perhaps you could create 12 BirthMonth Categories (BirthMonth01, BirthMonth02, BirthMonth03, etc. though BirthMonth12), apply them, then sort by them. If you have a huge number of Contacts to apply it to, here's some code to apply it, but first test ithe Category approach manually on a few Contacts. (Yes, this works on Contacts with the Birthday field completed. Calendar items would need different code, and must include "Birthday" in the Subject for code to work.)

    Sub SetBirthMonthCategory()
    Dim objContact As Object ' contactitem
    Dim lngChangeCount As Long

    For Each objContact In ActiveExplorer.CurrentFolder.Items
    If objContact.Class = olContact Then ' not a distlist
    With objContact
    If CBool(.Birthday < 949988) Then ' Birthday = "None" is stored as Date 1/1/4501
    .Categories = "BirthMonth" & Format(Month(.Birthday), "00") & Format(Day(.Birthday), "00")
    Debug.Print .FileAs
    lngChangeCount = lngChangeCount + 1
    .Save
    End If
    End With
    End If
    Next
    MsgBox "Done - " & lngChangeCount & " items changed"
    End Sub
    -John ... I float in liquid gardens
    UTC -7ąDS

Posting Permissions

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