#SingleInstance

^!n::
FormatTime timestamp, A_Now, yyyyMMdd
IfWinExist Untitled - Notepad
                WinActivate
else
                Run, Notepad "%TEMP%\bodyidea_%timestamp%.txt"
return

^!g::
VerbVar := "mailto:rmetcalfe15@gmail.com?subject=Which Old Thing..."
FormatTime timestamp, A_Now, yyyyMMdd
Ale := "%0A"
GetArg := "&"
ZeroOne := 0
HBodyVar =
BodyVar =
ifExist, %TEMP%\bodyidea_%timestamp%.txt
    FileReadLine, HBodyVar, %TEMP%\bodyidea_%timestamp%.txt, 1
    if HBodyVar is integer
    {
        VerbVar = sms:%HBodyVar%
        ZeroOne := "1"
        GetArg := "&"
    }

    Loop, read, %TEMP%\bodyidea_%timestamp%.txt
    {
        IfEqual, ZeroOne, 0
        {
            BodyVar = %BodyVar%%A_Space%%Ale%%A_LoopReadLine%
        }

        ZeroOne := 0
    }

IfWinExist Mail
                WinActivate
else

                Run, "%VerbVar%%GetArg%body=%BodyVar%"
return

^!r::
VerbVar := "mailto:rmetcalfe@rjmprogramming.com.au.com?subject=That Old Thing..."
FormatTime timestamp, A_Now, yyyyMMdd
Ale := "%0A"
GetArg := "&"
ZeroOne := 0
HBodyVar =
BodyVar =
ifExist, %TEMP%\bodyidea_%timestamp%.txt
    FileReadLine, HBodyVar, %TEMP%\bodyidea_%timestamp%.txt, 1
    if HBodyVar is integer
    {
        VerbVar = sms:%HBodyVar%
        ZeroOne := "1"
        GetArg := "&"
    }

    Loop, read, %TEMP%\bodyidea_%timestamp%.txt
    {
        IfEqual, ZeroOne, 0
        {
            BodyVar = %BodyVar%%A_Space%%Ale%%A_LoopReadLine%
        }

        ZeroOne := 0
    }

IfWinExist Mail
                WinActivate
else

                Run, "%VerbVar%%GetArg%body=%BodyVar%"
return