検索ワードを入力し、ヒットしたノートタイトル＆ノートリンクをOmniOutlinerへ。

gistfile1.applescript

set sarchtext to text returned of (display dialog "検索ワードを入れやがれ！" default answer "")

tell application "Evernote"
	
	set sarchnote to find notes sarchtext

	if not (sarchnote = {}) then
		repeat with var_note in sarchnote
			set linename to (get title of var_note)
			set linkname to (get note link of var_note)
			my addrow(linename, linkname)
		end repeat
	else
		set dialogtext to "ノートはありません"
	end if
	
end tell

on addrow(notename, notelink)
	tell application "OmniOutliner"
		set newtopic to (make with properties {topic:notename} new row at end of document 1)
		set note of newtopic to notelink
	end tell
end addrow