AppleScript to send file to Kindle

gistfile1.scpt

on run {input, parameters}
	tell application "Mail"
		activate
	end tell
	tell application "Finder"
		set visible of process "Mail" to false
	end tell
	tell application "Mail"
		set newMessage to make outgoing message with properties {visible:true, content:"", subject:"convert"}
		tell newMessage
			make new to recipient at end of to recipients with properties {address:"[email protected]"}
			make new attachment with properties {file name:input}
		end tell
		send newMessage
	end tell
	tell application "Finder"
		set visible of process "Mail" to false
	end tell
end run