Ctrl-RightClick to Delete Messages in Outlook

An amendment to previous posts:
#IfWinActive ahk_class rctrl_renwnd32
^RButton::
MouseGetPos, , , , pane
If pane = SUPERGRID1
Send {Click}^d
else
Click right
return
RButton::
MouseGetPos, , , , pane
If pane = SUPERGRID1
Send {Click}!q
else
Click right
return
#IfWinActive