[Notes]選択したメモを別アカウントに複製（新規作成）します
macOS標準のメモアプリ（Notes.app)は
AppleScript上で複製出来ないので
同じ物をAppleScriptを利用して複製する場合は
同じ内容の物を別のアカウントに新規作成することになります
#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#選択したノートを別のアカウントに複製します
#インラインの画像で表示に不具合が出ますが複製は出来ます
#
# com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
use AppleScript version "2.8"
use framework "Foundation"
use scripting additions
####ログを出す場合コメントアウトを外してね
(*
tell application "Script Editor"
tell application "System Events"
keystroke "l" using {command down, option down}
end tell
end tell
delay 1
*)
###選択中のメモを取得
tell application "Notes"
set listSelected to selection
end tell
#####移動先のアカウントを決めてもらう
##アカウントリストを初期化
set listAccountName to {} as list
tell application "Notes"
###アカウントリストを取得
set listAccount to every account as list
set numAccount to (count of listAccount) as number
repeat with objAccount in listAccount
##アカウントを順番に
tell objAccount
###アカウントIDを取得
set objAccountID to id
###アカウント名を取得
set strAccountName to name as text
end tell
###アカウントリストに格納する
copy "" & strAccountName & "" to end of listAccountName
end repeat
end tell
####選択ダイアログを出して
try
set objResponse to (choose from list listAccountName with title "移動先を選択してください" with prompt "移動先先のアカウントを選んでください" default items (item 1 of listAccountName) OK button name "OK" cancel button name "キャンセル" with multiple selections allowed without empty selection allowed)
on error
log "エラーしました"
return
end try
if objResponse is false then
log "キャンセルしました"
return
end if
set strResponse to objResponse as text
tell application "Notes"
##選択したノートを順番に処理
repeat with objNote in listSelected
###まずは選択したオプジェクトについて
tell objNote
###コンテナ（ここではFolder)を取得
set objFolderName to container
##選択ノートのFolderについて
tell objFolderName
###選択ノートのフォルダ名を取得
set strFolderName to name
###選択ノートのフォルダのコンテナ（ここではAccount）
set objAccount to container
###選択ノートのアカウントについて
tell objAccount
###選択ノートのアカウント名を取得
set strAccountrName to name
end tell
end tell
##メモの名前を取得
set strNoteName to name
####本文を取得
#注意
#ボディは『取得』できますが
#ほとんど書き込み出来ません
#これは回避方法がわからなかった
set objBody to body
##添付ファイルを取得『無い場合は{}』
set objAttach to every attachment
#plaintextはリードオンリーなので不要
##set objPlaintext to plaintext
end tell
####移動先に同名のフォルダがあるか？確認
set boolFolderExists to exists of folder strFolderName of account strResponse
###フォルダがなければフォルダを作成する
if boolFolderExists is false then
##移動先のアカウント
tell account strResponse
##同名のフォルダを作る
make new folder with properties {name:strFolderName}
end tell
end if
##選択したのアカウント
tell account strResponse
##同名フォルダに新規ノートを作成
set objNewNote to make new note at (folder strFolderName) with properties {name:strNoteName, body:objBody}
end tell
###添付ファイルの処理
set numCntAttach to count objAttach
set numChkCnt to 1
##元のメモに添付のある数だけ処理
repeat numCntAttach times
set objAttachFile to item numChkCnt of objAttach
##添付ファイルのIDを取得
set numAttachID to id of objAttachFile
tell attachment id numAttachID
##パスを取得
set aliasAttachContents to contents
log aliasAttachContents
end tell
##新規添付ファイルを元のパスと同じ物を新規作成したメモに紐づける
make new attachment at objNewNote with data aliasAttachContents
set numChkCnt to numChkCnt + 1
end repeat
end repeat
end tell
| 固定リンク
