Mailで特定のアドレスから受信した添付ファイルを指定のフォルダに自動保存する方法

失礼致します。　メールアプリのルールでAppleScriptを実行する設定があるので、それを利用するとよいと考えます。　以下のAppleScriptはどうでしょうか？

using terms from application "Mail"

on perform mail action with messagesmessageList

tell application "Mail"

repeat with eachMessage in messageList

if (mail attachments of eachMessageexists) then # 添付ファイルがあるかどうかを確認

set attachmentList to (get mail attachments of eachMessage) # 添付ファイルリスト作成

repeat with eachAttachment in attachmentList# 添付ファイル毎に繰り返し

set fileName to name of eachAttachment# 添付ファイルの名前を取得

-- 添付ファイルをフォルダに保存（例：デスクトップにあるScreen Shotsフォルダ）

save eachAttachment in file ("Mavericks:Users:T22T:Desktop:Screen Shots:" & fileName)

-- ”Mavericks～Shots:”の部分をご利用の環境にあわせて変更する必要があります。

-- AppleScritエディタで choose folderコマンドを実行してフォルダを選択した時に返される文字列を入れるとよいです。

end repeat

end if

end repeat

end tell

end perform mail action with messages

end using terms from

もし今後恒久的に同じ動作を行うのではなく、現状受信しているメールに関してのみおこないたいのであれば簡単な方法が有ります。

1.スマートメールフォルダを以下の要領で作ります。

以下の全ての条件に一致する物を集める

差出人：当該送信者のメールアドレス

添付ファイルのタイプ：イメージ

2.当該スマートメールフォルダ内のメールを全部選択した状態で ファイル＞添付ファイルを保存 を実行して任意のディレクトリにイメージを保存

これで同名のファイルが有ってもリネームして保存してくれます。

度々、失礼致します。　済みません、ファイル名が重複するときの処理を忘れていました。　以下のAppleScriptはどうでしょう？　重複がある場合は、ファイル名の前に数字を付けてくれます。　ご確認下さい。

using terms from application "Mail"

on perform mail action with messagesmessageList

tell application "Mail"

repeat with eachMessage in messageList

if (mail attachments of eachMessageexists) then # 添付ファイルがあるかどうかを確認

set attachmentList to (get mail attachments of eachMessage)

repeat with eachAttachment in attachmentList

set fileName to name of eachAttachment

set theFolder to "Mavericks:Users:T22T:Desktop:Screen Shots:"

-- ”Mavericks～Shots:”の部分をご利用の環境にあわせて変更する必要があります。

set fileName to my checkFileAndRename(fileName, theFolder)

saveeachAttachmentinfile (theFolder & fileName)

end repeat

end if

end repeat

end tell

end perform mail action with messages

end using terms from

on checkFileAndRename(theName, theFolder)

tell application "Finder"

set i to 1

set originalName to theName

repeat while (file theName of folder theFolder exists)

set theName to (i as text) & " " & originalName

set i to i + 1

end repeat

end tell

return theName

end checkFileAndRename