#include "FastFind.au3"

$FFhWnd = WinGetHandle("[ACTIVE]")
FFSetWnd($FFhWnd)
FFSnapShot()
$mouse_speed = 1

While 1
   $aCoords = FFNearestPixel( 1720, 110, 0xFF4D3E , True , 1670 , 90 , 1770 , 130 )
   If Not @error Then
	  MsgBox(0, "New Message!", $aCoords[0] & ", " & $aCoords[1])
	  Sleep(2000)
	  MouseMove(1885, 20)
	  MouseClick("left", 18850, 20, 1, $mouse_speed )
	  Sleep(2000)
	  Send("{C 1}")
	  Send("{A 1}")
	  Send("{L 1}")
   ElseIf @error Then
	  Sleep(60000)
	  EndIf
WEnd