To prevent accidentally scheduling an Outlook appointment in non-working hours, you can read this article. Here we will teach you how to let Outlook warn you if an appointment is scheduled in your non-working hours.
Many users want to block the non-working hours in their Outlook calendar. To be specific, they don’t accept any Outlook appointments or meetings scheduled in non-working hours. But, at times, they may accidentally create appointments out of working hours, or someone sends them meetings scheduled in non-working hours. Focusing on this issue, here we’ll show you a way to let Outlook warn you in such cases.
Get Warned If Appointment Is Scheduled in Non-working Hours
- To start with, launch your Outlook application.
- Then, press “Alt + F11” keys to access VBA editor.
- Next, put the following VBA code into the “ThisOutlookSession” project.
Public WithEvents objCalendar As Outlook.Folder Public WithEvents objCalendarItems As Outlook.Items Private Sub Application_Startup() Set objCalendar = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar) Set objCalendarItems = objCalendar.Items End Sub Private Sub objCalendarItems_ItemAdd(ByVal Item As Object) Call GetWarnedIfInNonWorkingHours(Item) End Sub Sub GetWarnedIfInNonWorkingHours(ByVal objItem As Object) Dim objAppointment As Outlook.AppointmentItem Dim dStart, dEnd As Date Dim strMsg As String Dim nWarning As Integer Dim objPages As Outlook.Pages Dim objPage As Object Dim objControl As Object Set objAppointment = objItem dStart = Format(objAppointment.Start, "HH:MM") dEnd = Format(objAppointment.End, "HH:MM") 'Change the working hours as per your case If (dStart < "9:00") Or (dEnd > "18:00") Then strMsg = objAppointment.Subject & " is scheduled in non-working hours. Do you want to change it?" nWarning = MsgBox(strMsg, vbQuestion + vbYesNo) If nWarning = vbYes Then objAppointment.Display End If End If End Sub
- After that, restart your Outlook to activate this VBA project.
- Since then, every time when you create a new appointment within non-working hours, you will get a warning, like the following figure.
- If you select “Yes” in the warning, the appointment will display. Now, you can modify its occurring time at will.
Block Outlook Data Loss
Are you persisting in making regular data backup for your Outlook? If not, you’d better take action at once. Outlook is admittedly vulnerable. In other words, PST data can be corrupt readily. In order to avoid losing your valuable Outlook data, it is necessary to back up PST on a regular basis. Plus, if affordable, you ought to get hold of a powerful Outlook fix tool, such as DataNumen Outlook Repair. It’ll come in handy when the inbox repair tool fails to fix your PST file.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server fix and outlook repair software products. For more information visit www.datanumen.com