This event occurs when a user snoozes a Reminder item, either through the Outlook user interface or programmatically. The following example changes the text in the FlagRequest property if a user snoozes a flagged message that's marked High Importance:

Private Sub colReminders_Snooze(ByVal ReminderObject As Reminder) If ReminderObject.Item.Class = olMail Then Dim objMI As Mailltem Set objMI = ReminderObject.Item If objMI.Importance = ollmportanceHigh Then objMI.FlagRequest = "Urgent - Do not snooze!" objMI. Save End If End If End Sub

Was this article helpful?

0 0

Post a comment