OmniOutliner Selected Rows to OmniFocus.scpt

tell application id "OOut"
	
	try
		set doc_name to name of front document
	on error
		activate
		display alert "No Document Open"
		return
	end try
	
	set selected_rows to selected rows of front document
	if selected_rows is {} then
		activate
		display alert "No Rows Selected"
		return
	end if
	
	repeat with r in selected_rows
		set row_title to text of topic cell of r
		set row_note to note of r
		
		tell application "OmniFocus"
			tell quick entry
				make new inbox task with properties {name:row_title, note:row_note}
			end tell -- new inbox task
		end tell -- OmniFocus
	end repeat
	
	tell application "OmniFocus"
		tell quick entry to open
	end tell -- OmniFocus
	
end tell -- OmniOutliner