VBOffice

Reactivate Task Reminders

This macro turns reminders of task items on.

Last modified: 2007/02/26 | Accessed: 24.421  | #45
◀ Previous sample Next sample ▶
OLKeeper OLKeeper
OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.

Have you ever accidentally clicked Dismiss All on the Reminder window when you actually wanted to dismiss only one item? To get those reminders back you can right click on the columns headers, click Field Chooser / All Task fields, then drag Reminder onto the headers. By clicking into the cell you can now turn on the reminder for an item.

Actually you'd also need to display the ReminderTime field. If it reads None for an item, it never had a reminder.

It's easier with this script: Just select some task items, and press ALT+F8 to run the macro.


tip  How to add macros to Outlook
Public Sub ReactivateTaskReminder()
  Dim Selection As Outlook.Selection
  Dim obj As Object
  Dim Task As Outlook.TaskItem

  Set Selection = Application.ActiveExplorer.Selection
  If Selection.Count Then
    For Each obj In Selection
      If TypeOf obj Is Outlook.TaskItem Then
        Set Task = obj
        If Year(Task.ReminderTime) < 4500 Then
          Task.ReminderSet = True
          Task.Save
        End If
      End If
    Next
  End If
End Sub
Category-Manager Category-Manager
Access the master category list in the blink of an eye, share your color categories in a network, get a reminder service, and more.
email  Send a message