Evernoteで日記を書くためのノートを新規作成するAppleScript

New Journal.scpt

tell application "Evernote"
	activate
	set the_date to the (current date) as text
	display dialog "日記のタイトル：" buttons {"キャンセル", "作成", "クリップボードから作成"} default button 2 default answer the_date with icon 1
	set dlg_result to result
	set a_title to text returned of dlg_result
	set btn to button returned of dlg_result
	if btn is "作成" then
		set content to ""
	else if btn is "クリップボードから作成" then
		set content to get the clipboard
	end if
	set new_note to create note title a_title notebook "10_日記" with text content
	open note window with new_note
end tell