#Requires AutoHotkey v2.0
#SingleInstance Force
; Lesson 6: office toolkit. Edit the snippets to suit you. Ctrl+Alt+H shows help.
::;em::aj@example.in
::;ph::+91 98765 43210
:*:;dt::{
    SendText FormatTime(, "dd-MM-yyyy")
}
#e::(WinExist("ahk_exe EXCEL.EXE") ? WinActivate() : Run("excel.exe"))
#o::(WinExist("ahk_exe OUTLOOK.EXE") ? WinActivate() : Run("outlook.exe"))
#HotIf WinActive("ahk_exe EXCEL.EXE")
F1::Send "{F2}"
#HotIf
^!c::{   ; clean copied text: trim spaces and line breaks, then paste
    A_Clipboard := Trim(RegExReplace(A_Clipboard, "\s+", " "))
    Send "^v"
}
^!h::MsgBox "Snippets: ;em ;ph ;dt`nWin+E Excel, Win+O Outlook`nCtrl+Alt+C clean & paste`nEsc in Excel F1 = edit", "Toolkit"
A_TrayMenu.Add("Help", (*) => MsgBox("Ctrl+Alt+H for the list of keys"))