How to Get a Confirmation before Setting Reminder on Weekend in Your Outlook

If you frequently set reminders on weekend by mistake, you can use the method in this article. It can force Outlook to automatically warn you before a reminder is set on weekends.

If you are using Outlook for working, perhaps you will not check your mailbox on weekends. Thus, if you set any reminders on weekends, it may be useless for you. However, in reality, at times, you may mistakenly set reminders on weekends in your Outlook. In this case, you must hope that Outlook can auto warn you before your schedule a reminder on weekends. Nevertheless, Outlook doesn’t provide users such a native feature. If you want to realize it, you have to seek other means, such as third party add-ins or VBA code. Here we will look at this issue and teach you how to use VBA to get it. Now read on to get the detailed steps and codes.

Get a Confirmation before Setting Reminder on Weekend in Your Outlook

Get a Confirmation before Setting Reminder on Weekend

  1. Firstly, start your Outlook.
  2. Then press “Alt + F11” key buttons in main Outlook window.
  3. In the new window, find and open the “ThisOutlookSession” project.
  4. Subsequently, copy the following VBA codes into this project window.
Public WithEvents objReminders As Outlook.Reminders
Public strMsg, nWarning As Integer

Private Sub Application_Startup()
 Set objReminders = Outlook.Application.Reminders
End Sub

Private Sub objReminders_ReminderAdd(ByVal ReminderObject As Reminder)
    Call WarnIfReminderOnWeekend(ReminderObject)
End Sub

Private Sub objReminders_ReminderChange(ByVal ReminderObject As Reminder)
    Call WarnIfReminderAtWeekend(ReminderObject)
End Sub

Private Sub WarnIfReminderAtWeekend(objReminder As Reminder)
    Dim dReminderDate As Date
    Dim objItem As Object
    Dim strItemType As String
    Dim strItemSubject As String

    dReminderDate = objReminder.NextReminderDate
    Set objItem = objReminder.Item
    strItemType = Replace(TypeName(objItem), "Item", "")
    strItemSubject = objItem.Subject
 
    'Check if the reminder is set on Saturday or Sunday
    If Weekday(dReminderDate, vbMonday) >= 6 Then
       strMsg = "The reminder set on " & strItemType & " " & strItemSubject & " is scheduled on weekends. Do you want to remove this reminder?"
       nWarning = MsgBox(strMsg, vbExclamation + vbYesNo, "Check Reminder Date")
       If nWarning = vbYes Then
          objItem.ReminderSet = False
          objItem.Save
       End If
    End If
End Sub

VBA Code - Get a Confirmation before Setting Reminder on Weekend

  1. After that, sign this code as usual.
  2. Later change your Outlook macro settings to enable digitally signed macros.
  3. Eventually you can restart Outlook program to activate the new VBA project.
  4. From now on, every time when you add or change reminder to weekend, you will receive a message, like the following screenshot:Confirmation
  5. When you select “No”, the reminder will be removed.

Combat against Terrible Outlook Data Loss

In spite of boasting rich features, Outlook is vulnerable to many factors. That is to say, Outlook data can get corrupted or lost readily. Therefore, in order to escape from painful data loss, you had better stick to making regular backups for your PST data, which will permit you to recover Outlook data much more easily.

Author Introduction:

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

Comments are closed.