mail to reminders

MailToReminders.scpt

tell application "Mail"
	using terms from application "Mail"
		set selectedMails to selection
		set theMessage to first item of selectedMails
		set theBody to "message:%3C" & message id of theMessage & "%3E"
		set theSubject to the subject of theMessage & " (From " & the sender of theMessage & ")"
		tell application "Reminders"
			set theList to list "Inbox"
			set newToDo to make new reminder with properties {name:theSubject, body:theBody, container:theList}
		end tell
	end using terms from
end tell