• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 768
  • Last Modified:

Prevent Outlook Contact Birthday records from generating a reminder

Hi,

I have written a VB program to add Outlook contact records from a third party source.  It works great except for one detail.

The contacts have birthday fields filled in.  Since I have close to 500 contacts, I now get reminders every day that it's somebody's birthday, and I really don't want to know this.

I don't want to disable all reminders, for I use them for other tasks, appointments, etc.  I would like to only disable the reminders for the contact records, ideally when I am adding them.

I found the .ReminderSet parameter, but it does not appear to apply to contactitems.  Is there a way for me to specify at the creation time of the contact NOT to create the reminder?

many thanks...
0
localmagic
Asked:
localmagic
  • 4
  • 2
1 Solution
 
mlmccCommented:
How about not adding the birthday when you input the contact record?

mlmcc
0
 
BrianGEFF719Commented:
POST CODE PLEASE.

-Brian
0
 
localmagicAuthor Commented:
We would like to leave the birthday in the record for reference, but that was the only other way I could think of too!
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
localmagicAuthor Commented:
Code is something like this...

With ContactItems.Add
        .Title = RS!Salut & ""
        .FirstName = RS!FstName & ""
        .MiddleName = RS!MidInit & ""
        .LastName = RS!LstName & ""
        .Suffix = RS!namesuf & ""
        ....etc..etc...etc
           
        .Birthday = RS!DOB & ""
               
        .Save
0
 
localmagicAuthor Commented:
I've actually given up on the Birthday field entirely at this point, since there does not seem to be anyway to prevent the reminders.  

Is there a way to delete these reminders I have accumulated??  This doesn't seem to do the trick...

Sub DeleteBirthdays()
'
    Dim olApp As Outlook.Application
    Dim objRem As Reminder
    Dim objRems As Reminders

    Set olApp = Outlook.Application
    Set objRems = olApp.Reminders
       
    ' Loop thru all reminders
    If olApp.Reminders.Count <> 0 Then
        For Each objRem In objRems
            If Right(objRem.Caption, 8) = "Birthday" Then
                objRem.Item.Delete
            End If
        Next objRem
    End If
       
End Sub
0
 
localmagicAuthor Commented:
For anybody suffering with the same sort of problem, here's some final notes...

1) There doesn't seem to be anyway to prevent the reminders if you use the birthday field.

2) If you have Exchange 2003 without SP1, the reminders cannot be dismissed in some cases.  This is caused by a COM component buffer overflow, apparently triggered when Exchange has to process too many bits of data at once (like when I tried to add 500 contact records at once).  SP1 (at this point) seems to resolve the COM issue.

Hope this helps somebody someday...
0
 
mlmccCommented:
Glad i could help

mlmcc
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now