Things.applescript

tell application "Microsoft Outlook"
	set theMessage to first item of (get selected objects)
	set theSubject to the subject of theMessage
	set theBody to the plain text content of theMessage
	set theID to the id of theMessage
end tell

tell application "Things3"
	show quick entry panel with properties {name:theSubject, notes:theBody}
end tell

Thanks, Adam!