Macのメモ(Notes)からEvernoteにエクスポートするAppleScript

• AppleScriptではメモの中で添付ファイルの位置を取得できない
  • Evernoteではノート末尾にまとめている
• 他の環境では添付ファイルを取得できないかもしれない
  • エラーになる場合は次の2行を削除
    • set mediaFolder to alias ((path to ...
    • set end of attachmentFiles to file 1 of ...
  • 添付ファイルが保存されているフォルダの存在をチェックするように変更

Notes_to_Evernote.scpt

use scripting additions
use framework "Foundation"

--エクスポートするメモを選択
set chooseList to {}
tell application "Notes"
	repeat with i from 1 to count notes
		set end of chooseList to name of note i & return & i
	end repeat
	activate
	set chooseResult to choose from list my sortList(chooseList) with title "Notes to Evernote" with multiple selections allowed
end tell
if chooseResult = false then
	error number -128
end if

--添付ファイルフォルダを取得
try
	set mediaFolder to alias ((path to library folder from user domain as text) & "Group Containers:group.com.apple.notes:Media:")
	set existsMediaFolder to true
on error number -43
	set existsMediaFolder to false
end try

--メモをエクスポート
set exportedNotes to {}
repeat with aResult in chooseResult
	
	--メモ情報を取得
	tell application "Notes"
		set {body:noteHTML, name:noteTitle, creation date:creationDate, attachment:attachmentsOfNote} to note (paragraph 2 of aResult as integer)
	end tell
	
	--添付ファイルを取得
	set attachmentFiles to {}
	if existsMediaFolder then
		repeat with anAttachment in attachmentsOfNote
			tell application "Finder"
				set end of attachmentFiles to file 1 of (folder 1 of mediaFolder whose name of file 1 = name of anAttachment) as alias
			end tell
		end repeat
	end if
	
	--Evernoteにノート作成
	tell application "Evernote"
		set end of exportedNotes to create note with html noteHTML title noteTitle created creationDate attachments attachmentFiles
	end tell
end repeat
return exportedNotes

on sortList(aList as list)
	--require framework: Foundation
	set array to current application's NSArray's arrayWithArray:aList
	set comparator to my appropriateComparatorToSort(array's firstObject())
	return (array's sortedArrayUsingSelector:comparator) as list
end sortList

on appropriateComparatorToSort(anObject)
	--require framework: Foundation
	if anObject ≠ missing value and (anObject's respondsToSelector:"localizedCaseInsensitiveCompare:") then
		return "localizedCaseInsensitiveCompare:"
	else
		return "compare:"
	end if
end appropriateComparatorToSort

更新履歴

• 2016-01-15: 作成
• 2016-01-15: 添付ファイルが保存されているフォルダの存在をチェックするように変更
• 2016-01-15: エラー回避のためノート選択機能廃止
• 2016-01-16: ノート選択方法を改善
• 2016-02-20: sortListハンドラ更新