Make your meetings short!

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)