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
- Firstly, start your Outlook.
- Then press “Alt + F11” key buttons in main Outlook window.
- In the new window, find and open the “ThisOutlookSession” project.
- 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
- After that, sign this code as usual.
- Later change your Outlook macro settings to enable digitally signed macros.
- Eventually you can restart Outlook program to activate the new VBA project.
- From now on, every time when you add or change reminder to weekend, you will receive a message, like the following screenshot:
- 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.
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