Things-Outlook.AppleScript

tell application "Microsoft Outlook"
	set theMessageList to selected objects
	log theMessageList
	set theMessage to item 1 of theMessageList
	set theSubject to the subject of theMessage
	set theTime to the time received of theMessage
	set theBody to the plain text content of theMessage
	set theSender to the sender of theMessage
	set theSender to the address of theSender
	set theID to the id of theMessage
end tell

tell application "Things3"
	show quick entry panel with properties {name:theSubject & " (" & theTime & ")", notes:theSender & return & return & theBody}
end tell

Added a bit of additional metadata that I'd like to have.