Send current Chrome tab to OmniFocus

send-chrome-tab-to-omnifocus.scpt

on run {input, parameters}
	tell application "Google Chrome"
  		set theName to title of active tab of front window
		set theUrl to URL of active tab of front window		
		tell application "OmniFocus"
			set theTask to theName
			set theNote to theUrl
			
			tell quick entry
				set NewTask to make new inbox task with properties {name:theTask, note:theNote}
				select {NewTask}
				open
			end tell
			
			tell application "System Events"
				keystroke tab
			end tell
		end tell
	end tell
end run