How to Get Warned If There Is Not Enough Free Time between Outlook Appointments

In order to keep your schedule not too hasty, you had better keep enough free time between Outlook appointments, such as at least 30 minutes. Now, this post will let your Outlook to warn you if there is no enough free time between appointments.

Unquestionably, you should make your schedule reasonably. One of the most vital rules is to keep enough free time between appointments, preventing making your schedule too hasty. Otherwise, you will find that, most of time, you may miss or can’t attend some appointments in time. But, by default, Outlook can only auto test if there are conflicts appointments. It cannot check if appointments are too close to each other. Thus, thereinafter, we will share you a method to achieve this feature.

Get Warned If There Is Not Enough Time between Appointments

1. In the first place, launch your Outlook program.
2. Then in the following Outlook window, press “Alt + F11” key buttons.
3. Next, you will enter the “Microsoft Visual Basic for Applications” window, in which you need to open the “ThisOutlookSession” project.
4. Subsequently, copy the following VBA code into this project.

Private WithEvents objInspectors As Inspectors
Private WithEvents objAppointment As AppointmentItem

Private Sub Application_Startup()
   Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "AppointmentItem" Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim dStartTime As Date
    Dim dEndTime As Date
    Dim objAppointments As Items
    Dim strFilter As String
    Dim objFoundAppointment As AppointmentItem
    Dim strMsg As String
    Dim nWarning As Integer
 
    If Name = "Start" Or Name = "End" Then
       dStartTime = DateAdd("n", -30, objAppointment.start)
       dEndTime = DateAdd("n", 30, objAppointment.End)
 
       Set objAppointments = Application.ActiveExplorer.CurrentFolder.Items
       strFilter = "[End] >= " & Chr(34) & dStartTime & Chr(34) & " OR [Start] <= " & Chr(34) & dEndTime & Chr(34)
       Set objFoundAppointment = objAppointments.Find(strFilter)
 
       If Not (objFoundAppointment Is Nothing) Then
          strMsg = "Too Hasty Schedule: " & vbCrLf & vbCrLf & "No enough free time between each appointment!" & vbCrLf & "Please change the current appointment's time!"
          nWarning = MsgBox(strMsg, vbExclamation + vbOKOnly, "Smart Schedule")
       End If
    End If
End Sub

5. After that, you ought to sign this code. Just click “Tools” and choose “Digital Signature” option, and lastly follow onscreen instructions to complete it.
6. Later you can exit the VBA editor window and proceed to alter your Outlook macro settings to enable signed macros.
7. Finally you could restart your Outlook to activate this new macro.
8. From now on, every time you create or change an appointment, Outlook will auto check if there are any existing appointments whose time is too close to the current one. If so, you will get a warning like the following screenshot:

Combat against Outlook Data Loss

Without any doubts, one of the best ways to fight against Outlook data corruption or data loss is to make consistent and up-to-date PST data backups. In addition, it is also recommended to get hold of a preeminent repair tool, such as DataNumen Outlook Repair. It can repair PST errors and damage without any hassles.

Author Introduction:

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