Folder Action for emailing PDFs to Kindle

email - kindle.scpt

(*
Add this file to /Library/Scripts/Folder Action Scripts/
A slightly modified version..
Murphy Mac 
see http://murphymac.com/files-mailed-magically-when-dropped-in-a-finder-folder/ for more information.
*)


on adding folder items to Kindle after receiving theAddedItems
	
	repeat with eachitem in theAddedItems
		
		
		
		
		set theSender to "MyEmail<me@gmail.com>"
		set recipCommon to "Kindle"
		set recipAddress to "me@free.kindle.com"
		set msgText to "Kindle"
		
		
		
		
		
		
		tell application "Mail"
			
			
			set newmessage to make new outgoing message with properties {subject:"Important File Attachment", content:msgText & return & return}
			tell newmessage
				set visible to true
				set sender to theSender
				
				make new to recipient with properties {name:recipCommon, address:recipAddress}
				make new attachment with properties {file name:eachitem} at after the last paragraph
				
				
			end tell
			send newmessage
		end tell
		
		
	end repeat
	
end adding folder items to

gistfile1.txt

* Add your email to your Kindle if you haven't already at amazon.com
* Save the script above to /Library/Scripts/Folder Action Scripts
* Create a folder on Desktop called "Kindle"
* right click folder and select "Folder Actions Setup"
* select "email - Kindle"
* any files added to folder are automatically emailed to your Kindle