Insert pretty link.ahk

;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses.  They're structured in a way to make learning AHK EASY
; Right now you can  get a coupon code here: https://the-Automator.com/Learn
;*******************************************************

XL:=XL_Handle(1) ;Get handle to worksheet
;***********************insert "pretty" email link********************************
XL_Insert_Email(XL,email:="A2",Disp:="B2",Subj:="C2",Body:="D2",Dest:="E2")
XL_Insert_Email(XL,email:="A3",Disp:="B3",Subj:="C3",Body:="D3",Dest:="E3")
return

XL_Insert_Email(PXL,email="",Disp="",Subj="",Body="",Dest=""){
PXL.Application.ActiveSheet.Range(Dest).Value:="=Hyperlink(""Mailto:"
 . PXL.Application.ActiveSheet.range(email).value
 . "?Subject=" . PXL.Application.ActiveSheet.Range(Subj).Value
 . "&Body="    . PXL.Application.ActiveSheet.Range(Body).Value
 . ""","""     . PXL.Application.ActiveSheet.Range(Disp).Value . """)"
}

;***********Get handle to Excel*******************
XL_Handle(Sel){
	ControlGet, hwnd, hwnd, , Excel71, ahk_class XLMAIN ;identify the hwnd for Excel
	Obj:=ObjectFromWindow(hwnd,-16)
	return (Sel=1?Obj.Application:Sel=2?Obj.Parent:Sel=3?Obj.ActiveSheet:"")
}
;***borrowd & tweaked from Acc.ahk Standard Library*** by Sean  Updated by jethrow*****************
ObjectFromWindow(hWnd, idObject = -4){
	if(h:=DllCall("LoadLibrary","Str","oleacc","Ptr"))
		If DllCall("oleacc\AccessibleObjectFromWindow","Ptr",hWnd,"UInt",idObject&=0xFFFFFFFF,"Ptr",-VarSetCapacity(IID,16)+NumPut(idObject==0xFFFFFFF0?0x46000000000000C0:0x719B3800AA000C81,NumPut(idObject==0xFFFFFFF0?0x0000000000020400:0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc)=0
			Return ComObjEnwrap(9,pacc,1)
}