How To Shorten The Duration Of An Appointment In Outlook

How Outlook Users can Shorten the Default Appointment Duration Time

1. Adjust the Default Time Scale Settings

2. Set Up a Macro

Users who need to select a duration not included on the Time Scale drop-down can set up a macro that shortens Outlook appointment. To do that, press the Alt + F11 hotkey; and click ThisOutlookSession on the left of the macro editor window. Then copy and paste this VB code into the macro editor with the Ctrl + C (copy) and Ctrl + V (paste) hotkeys: Private WithEvents objInspectors As Outlook.Inspectors Private WithEvents objAppointment As Outlook.AppointmentItem Private Sub Application_Startup() Set objInspectors = Outlook.Application.Inspectors End Sub Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector) If TypeOf Inspector.CurrentItem Is AppointmentItem Then Set objAppointment = Inspector.CurrentItem End If End Sub Private Sub objAppointment_Open(Cancel As Boolean) ‘Set the default duration of new appointment If objAppointment.CreationTime = #1/1/4501# Then objAppointment.Duration = “15” End If End Sub Private Sub objAppointment_PropertyChange(ByVal Name As String) ‘When you disable the “All Day Event” ‘Change the default duration of the current appointment If Name = “AllDayEvent” Then If objAppointment.AllDayEvent = False Then objAppointment.Duration = “15” End If End If End Sub The macro above changes appointment durations to 15 minutes. Users will need to edit the objAppointment.Duration values in the macro to change the duration to a shorter time period. For example, the objAppointment.Duration value would be 7 for a seven minute appointment. After pasting the above code into the macro editor, click the disk button to save the code. Users can also select the Notifications for all macros option on the Trust Center’s Macro settings tab. Then users can select an Enable Macros option to launch Outlook with the appointment duration macro enabled. 

So, changing the default appointment duration in Outlook is straightforward. Thereafter, users can schedule appointments shorter than 30 minutes as required. RELATED ARTICLES TO CHECK OUT: 

FIX: Outlook error when sharing calendar in Windows 10 FIX: Outlook hangs when switching to calendar FIX: Outlook Meeting updates not updating in the Calendar

SPONSORED Name * Email * Commenting as . Not you? Save information for future comments
Comment

Δ