How to Auto Set the Reminder Date to Start Date Instead of Due Date in Outlook Task

By default, the reminder date of task will automatically be set equal to the due date. Thus, in this article, we will teach how to use Outlook VBA to keep task reminder date same as the start date instead of due date.

Perhaps you must have notice that when you create a task whose start date and due date aren’t in the same day, its reminder date will automatically be specified equal to the due date. Moreover, every time you change the due date, reminder date will be changed as well. However, most of the time, what you exactly want is to get a reminder as soon as a task starts instead of when it tend to end in that the reminder on due date will be too late. Therefore, you must long for a method which can keep the task reminder date same as start date. Outlook doesn’t have such a feature natively. You need to seek other means, such as VBA. So here we’ll share you how to get it with Outlook VBA.

Auto Set the Reminder Date to Start Date Instead of Due Date in Outlook Task

Auto Set the Reminder Date to Start Date Instead of Due Date

  1. To start with, launch your Outlook program as normal.
  2. Then turn to “Developer” tab and click on the “Visual Basic” button. If cannot find such a tab, you can also press “Alt + F11” keys.
  3. Next you will enter the VBA editor window.
  4. Then you need to open the “ThisOutlookSession” project window and copy the VBA codes below into it.
Public WithEvents objTasks As Outlook.Items
Public objTask As Outlook.TaskItem
Public dStartDate As Date
Public dReminderTime As Date

Private Sub Application_Startup()
    Set objTasks = Outlook.Application.Session.GetDefaultFolder(olFolderTasks).Items
End Sub

Private Sub objTasks_ItemAdd(ByVal Item As Object)
    KeepReminderSameasStartDate Item
End Sub

Private Sub objTasks_ItemChange(ByVal Item As Object)
    KeepReminderSameasStartDate Item
End Sub

Public Sub KeepReminderSameasStartDate(ByVal Item As Object)
    If Item.Class = olTask Then
       Set objTask = Item
       dStartDate = objTask.StartDate
       'You can change the concrete reminder date as per your actual needs
       dReminderRTime = dStartDate & " 8:00:00 AM"
       If objTask.ReminderSet = True Then
          objTask.ReminderTime = dReminderRTime
          objTask.Save
       End If
    End If
End Sub

VBA Codes - Auto Set the Reminder Date to Start Date Instead of Due Date in Outlook Task

  1. After that, you have to sign this macro.
  2. Later change your Outlook macro settings to only permit the digitally signed macros.
  3. Eventually restart your Outlook to activate the new macros.

Note:

  1. When you create a new task, in the currently opened task, the reminder date will still display same as the due date. But after you save it and re-check its reminder, you will find it same as the start date.
  2. When you change the due date in an existing task, the reminder date will still change. But after you save it and recheck the reminder, you will see that it is still equal to start date.

Salvage Your Valuable PST Data

Many users have been plagued by PST vulnerabilities for a long time. You may keep worried about the health of your PST file and fear it gets corrupted one day. Thus, the best way to get rid of such panics is to make a consistent and up-to-date data backup for the PST files. Besides, you can prepare a proven Outlook repair tool in advance, like DataNumen Outlook Repair, such that you can get immediate rescue when suffering PST crashes.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupted sql and outlook repair software products. For more information visit www.datanumen.com