Send Selected Outlook Messages to Things Applescript

send_outlook_to_things.osa

tell application "Microsoft Outlook"
	activate
	set msgSet to current messages
	if msgSet = {} then
		error "No Messages selected. Select at least one message."
		error -128
	end if
	set theMessage to item 1 of msgSet
	set theAccount to account of theMessage
	set theSubject to the subject of theMessage
	set theBody to the plain text content of theMessage
	set theID to the id of theMessage
	set archiveFolder to folder "Folder Name" of theAccount
	if msgSet is not {} then
		repeat with aMessage in msgSet
			set aMessage's is read to true
			move aMessage to archiveFolder
		end repeat
	end if
end tell

set bodyLength to the length of theBody

if (bodyLength < 400) then
	set trimLength to bodyLength as number
else
	set trimLength to 400
end if

set truncatedBody to trim_line(theBody, trimLength)

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

on trim_line(this_text, trim_chars)
	-- 0 = beginning, 1 = end, 2 = both
	set i to 1
	set e to trim_chars
	set this_text to characters i thru e of this_text as string
	return this_text
end trim_line