Saving selected mail attachments for use with a Dropbox gallery

save-mail-for-dropbox-gallery.scpt

tell application "Mail"
	set theSelectedMessages to selection
	repeat with theMessage in theSelectedMessages
		repeat with theAttachment in theMessage's mail attachments
			set thePath to "/Users/user/Dropbox/Photos/CheekyMonkey/"
			set posixPath to POSIX file thePath as string
			set theSubject to theMessage's subject
			set theAttachmentFileName to posixPath & theSubject & theAttachment's id & theAttachment's name
			try
				save theAttachment in theAttachmentFileName
			on error errnum
			end try
		end repeat
	end repeat
end tell