Things-Outlook.AppleScript

tell application "Microsoft Outlook"
	set theMessage to first item of (get current messages)
	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