Hello!

Thanks for help, but the reminder occurs like before!

The code sems not to work!

Regards Michel

"Ken Slovak - [MVP - Outlook]" wrote:

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

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Michel Lauterbach" wrote in
message ...
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