View Single Post
I've updated the previously posted script to include any notes attached to the selected rows in OmniOutliner:

Code:
tell front document of application "OmniOutliner Professional"
	-- set theDoc to front document
	--set columnCount to count of columns of theDoc
	
	set theList to the selected rows
	set theCount to (count of selected rows)
	if theCount < 1 then
		display dialog "You need to select at least one row to use this script." buttons "Cancel" default button "Cancel"
	end if
	
	-- go through each selected row in OmniOutliner and then create a corresponding
	-- action in the quick entry box of OF
	
	set actionText to ""
	repeat with i from 1 to theCount
		
		
		set actionText to (get topic of item i of selected rows)
		set actionNote to (get note of item i of selected rows)
		
		-- create a new action in Omnifocus QuickEntry window
		
		tell application "OmniFocus"
			-- create new action
			tell quick entry
				open
				set NewTask to make new inbox task with properties {name:actionText, note:actionNote}
			end tell
		end tell
	end repeat
end tell