Easy Zooming in Outlook Calendar

Posted 3 months, 1 week ago at 10:29 pm. 0 comments

I sometimes like to "micro-plan" my day’s events using Microsoft Outlook, to plan for a series of consecutive 10 or 15 minute tasks.  To switch to this view requires a convoluted series of mouse clicks, and then an equally time consuming task to revert to the usual time resolution.

Zoomed-in View	Zoomed-out View

I created an Autohotkey script that allows you to use the control-minus and control-equals (remember it’s below the plus key,) to instantly zoom in and out of your Outlook calendar.  I would prefer to use the standard control-mouse wheel zoom, but for unexplained reasons, the script became unreliable in that configuration.

Download the executable, or see the source:

NOTE: The script requires that you download and install the easycom library.

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.

#Include %A_ScriptDir%\include\ws4ahk.ahk

#IfWinActive , Calendar - Microsoft Outlook
^-::
WS_Initialize()
; Using a block of code like this makes it easy to
; add functions to the scripting environment.

;WS_Exec("Set oOutlook = GetObject(,""Outlook.Application"")")

Code =
(
  Set oOutlook = GetObject(,"Outlook.Application")
  Set objView = oOutlook.ActiveExplorer.CurrentView
  objView.DayWeekTimeScale = objView.DayWeekTimeScale - 1
  objView.Apply
)
WS_Exec( Code )
WS_Uninitialize()
return

^=::
WS_Initialize()
; Using a block of code like this makes it easy to
; add functions to the scripting environment.

;WS_Exec("Set oOutlook = GetObject(,""Outlook.Application"")")

Code =
(
  Set oOutlook = GetObject(,"Outlook.Application")
  Set objView = oOutlook.ActiveExplorer.CurrentView
  objView.DayWeekTimeScale = objView.DayWeekTimeScale + 1
  objView.Apply
)
WS_Exec( Code )
WS_Uninitialize()
return

#IfWinActive