The land of Shattered dreams

Welcome to the online revolution…

Create Things Tasks From Within Outlook

| Comments

I use FastScripts to run this, and it creates a Things task for each message you’ve selected in Outlook.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

Comments