AppleScript workflow for canned responses

autoreply.applescript

on run {input, parameters}
	
	tell application "System Events"
		set frontmost of process "Automator Runner" to true
	end tell
	
	set the_path to "Macintosh HD:Users:tony:Desktop:Overcast:Replys"
	set the_files to list folder the_path
	set the_file to {choose from list the_files}
	set input to (do shell script "cat " & quoted form of (POSIX path of (the_path & ":" & the_file)))
	
	tell application "System Events"
		set frontmost of process "Mailbox (Beta)" to true
	end tell
	
	return input
end run