outlook coms

;v1 AHK

f1::

DetectHiddenWindows, On
Process, Exist, outlook.exe
If !ErrorLevel
	{
    Run outlook.exe
    Sleep 15000  ;can change this is want
	}

global Email
Outlook := ComObjActive("Outlook.Application")
Email := Outlook.Application.CreateItem(0)
ComObjConnect(Email, "Email_")
Email.SendUsingAccount := "test@testing.com"
;inputbox could go here
Email.To := "thatguy@place.com"
Email.Subject := "I Need your cookies"
Email.Body := "Give them to me or else I cut your grass to short"
Email.Display(true)
;Email_Send
Email_Send(Cancel)
{
	if InStr(Email.Body, "grass")
	{
		MsgBox, Dont cut ppls grass! Stop it.
		return ComObject(0xB,0)
	}
}