Reminder for Calendar-Items in the past?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello!

Something new in Outlook 2003: If you place a new Calendar-Item in the past,
there will occur a reminder promptly!

As we use this method to hold out workhistory this new feature is very nasty
for us.

Is it possible to place a vba-script in the "ThisOutlookSession"-Part of the
VbaProject.OTM that deletes the marker for the reminder at the calendar-item
while saving a new calendar-item? How is this possible? What is the vba-code?

Our environment: Windows XP-SP2 with Office-Outlook 2003-SP2

Thanks for info!!!

Michel
 
Place this code in ThisOutlookSession:

Private WithEvents colReminders As Outlook.Reminders

Private Sub Application_Startup()
Set colReminders = Application.Reminders
End Sub

Private Sub colReminders_ReminderAdd(ByVal ReminderObject As Reminder)
Dim oFolder As Outlook.MAPIFolder

Set oFolder = ReminderObject.Parent
'test for Calendar folder
If oFolder.DefaultItemType = olAppointmentItem Then
Call ClearOldReminder(ReminderObject)
End If
End Sub

Sub ClearOldReminder(oReminder As Outlook.Reminder)
Dim datReminder As Date

datReminder = oReminder.NextReminderDate
' if <= 0 then due or past due reminder
If DateDiff("n", Now, datReminder) <= 0 Then
oReminder.Dismiss
End If
End Sub
 
Hello!

Thanks for help, but the reminder occurs like before!

The code sems not to work!

Regards Michel
 
Hello!

Yes, macros are enabled. There are also some other macros in
ThisOutlookSession, e.g. an attachment-reminder for E-Mail.

Isn't it possible to connect the macro to the oppening of a new
calendar-item? Perhaps you can check at this moment while the date is in the
past or not and depending on this enable the reminder or not?

Thank you for help!!!

Regards Michel
 
You'd probably be best off hooking into NewInspector to see when an item is
opened, checking to make sure it's a calendar item and then handling it's
Save event. During that event handler you can cancel the reminder flag:
AppointmentItem.ReminderSet = False.
 
Hi Ken,

thank you for the information.

Is it possible for you to send me the sub-code, as I'm not able to write it.

Sorry for complications...

Regards Michel
 
Back
Top