typingincolor.com

tell application "Microsoft Outlook"
	using terms from application "Microsoft Outlook"
		-- get the currently selected message or messages
		set selectedMessages to current messages
 
		-- if there are no messages selected, warn the user and then quit
		if selectedMessages is {} then
			display dialog "Please select a message first and then run this script." with icon 1
			return
		end if
 
		repeat with theMessage in selectedMessages
			set theSubject to subject of theMessage
			set theContent to plain text content of theMessage
 
			tell application "Things"
				set newToDo to make new to do with properties {name:theSubject}
				set tag names of newToDo to "email"
				set notes of newToDo to theContent
			end tell
		end repeat
	end using terms from
end tell