Perhaps you frequently need to disable the reminders of the “free” calendar items manually. Now, in this article, we’ll introduce a method to let Outlook auto realize it.
If you’ve enabled and set a default reminder time for calendar items, every time when you create a new calendar item, it will be taken with an enabled reminder, irrespective of whether the item is shown as “free”, “busy” or others. Yet, you may wish that the “free” calendar items have no reminder. Therefore, in general, you always need to manually disable the reminders. But this way is too troublesome. So, in the followings, we will share a method to configure Outlook to auto disable the reminders of “free” calendar items.
Auto Disable the Reminders of All “Free” Calendar Items
- To start with, launch Outlook program.
- Then, trigger Outlook VBA editor with accordance to “How to Run VBA Code in Your Outlook“.
- Next, put the following code into the “ThisOutlookSession” project.
Public WithEvents objInspectors As Outlook.Inspectors Public WithEvents objExplorer As Outlook.Explorer Public WithEvents objAppointment As Outlook.AppointmentItem Private Sub Application_Startup() Set objInspectors = Outlook.Application.Inspectors Set objExplorer = Outlook.Application.ActiveExplorer End Sub Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector) If Inspector.CurrentItem.Class = olAppointment Then Set objAppointment = Inspector.CurrentItem End If End Sub Private Sub objExplorer_Activate() On Error Resume Next If objExplorer.Selection.Item(1).Class = olAppointment Then Set objAppointment = objExplorer.Selection.Item(1) End If End Sub Private Sub objAppointment_Open(Cancel As Boolean) Call DisableReminderForFreeItem(objAppointment) End Sub Private Sub objAppointment_PropertyChange(ByVal Name As String) If Name = "BusyStatus" Then Call DisableReminderForFreeItem(objAppointment) End If End Sub Private Sub DisableReminderForFreeItem(ByVal objAppointment As Outlook.AppointmentItem) 'Auto disable reminder of free calendar item If objAppointment.BusyStatus = olFree Then objAppointment.ReminderSet = False End If End Sub
- After that, move cursor to the “Application_Startup” subroutine.
- Later, press “F5” key button to run this macro.
- Finally, you can have a try.
- First off, create a new appointment.
- Then, select “Free” from the dropdown list of “Show As”.
- At once, you can see that the reminder has been changed to “None”.
Take It Easy In Case of Outlook Corruption
A Majority of users tend to get panic and frustrating when they come across PST corruption in Outlook. Of course, you can be worried for a while. Yet, you have to calm down as soon as possible and take immediate operations to rescue corrupt Outlook data. It can be achieved by either inbox repair tool or a proficient third party tool, such as DataNumen Outlook Repair.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover sql and outlook repair software products. For more information visit www.datanumen.com