I put this together for my work to give an overview of where we are headed.
Sorry, this post is very technical but I was looking for a way to reduce my default meeting length in Microsoft Outlook - 30 minutes is too long and 15 minutes too short.
So here you go if you want to go to 20 minutes (or whatever else pleases you):
1. Open Outlook
2. Open the VBA editor: Tools —> Macro —> Visual Basic Editor (Alt + F11)
3. Navigate to ThisOutlookSession
- Project1
- Microsoft Outlook Objects
- ThisOutlookSession
4. Double-click on ThisOutlookSession
5. In the code window that appears, paste the code sample below.
6. Click the Save button on the toolbar
7. Close the VBA Editor.
8. If your Macro Security is set to High, you will need to lower it. In Outlook, choose Tools —> Macro —> Security… and pick a lower setting.
9. Restart Outlook and try creating a new Appointment or Meeting.
Code Sample:
’=================================================================
Dim WithEvents oInspectors As Outlook.Inspectors
Private Sub Application_Startup()
Set oInspectors = Application.Inspectors
End Sub
Private Sub Application_Quit()
Set oInspectors = Nothing
End Sub
Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = “AppointmentItem” Then
Dim AI As Outlook.AppointmentItem
Set AI = Inspector.CurrentItem
If AI.CreationTime = #1/1/4501# Then
AI.Duration = 20
End If
Set AI = Nothing
End If
End Sub
’=================================================================
You can change AI.Duration = 20 to anything that works for you (I just like short meetings)