Mailで添付ファイルを自動リネーム＆自動保存

失礼致します。　少しずれますが、Automator （ver.2.3 on Mac OS 10.8）でもできましたよ（下図をクリックして拡大）。『テキストを追加』のアクションは『Finder項目の名前を変更』のアクションになります。　 Mac OS X 10.6では『一時停止』のアクションがないかもしれませんが、AppleScriptのdelayコマンドを使えると思います。　日付や時刻の変数を『テキストを追加』アクションの項目へドラッグ＆ドロップします。　変数の書式は下の変数一覧のアイコンをクリックしてカスタム形式を選択して編集します。

追記：　上記ワークフローの最初のアクションは『指定されたメール項目を取得』になります（画像に入っていませんでした。すみません）。　Automatorの『カレンダーアラーム』形式のワークフローにするとiCalのイベントに入れることができますよ（OS X 10.6ではプラグイン形式で保存する必要があるかもしれません）。

度々、失礼致します。

上記、Y._Kawabe-importedさんのAppleScriptの『set fileName to name of eachAttachment』の行の下に、

set fileName to "XX-" & date_format() & "-" & time_format() & "-" & fileName

を加え、最後の行の下に、

to date_format() -- Old_date is text, not a date.

set old_date to date string of (current date)

set {year:y, month:m, day:d} to date old_date

tell (y * 10000 + m * 100 + d) as string to text 1 thru 4 & text 5 thru 6 & text 7 thru 8

end date_format

to time_format()

set old_time to time string of (current date)

tell old_time as string to text 1 thru 2 & "-" & text 4 thru 5 & "-" & text 7 thru 8

end time_format

を加えて下さい。　AppleScript (ver.2.2.3) on Mac OS 10.8.2で作動確認致しました。　どうでしょうか？

参照リンク： http://macscripter.net/viewtopic.php?id=24737

訂正：　to date_format() にある、

1）『tell (y * 10000 + m * 100 + d) asstringtotext 1 thru 4 & text 5 thru 6 & text 7thru 8』　は、

『(y * 10000 + m * 100 + d) as string』　の方が簡単でしたね。

2）to time_format()の方も修正が必要でした。すみません。　しばらくお待ち下さい。

訂正： to time_format()　は、

to time_format()

set old_time to time string of (current date)

set {hours:h, minutes:m, seconds:s} to date old_time

tell (1000000 + h * 10000 + m * 100 + s) as string to text 2 thru 3 & "-" & text 4 thru 5 & "-" & text 6 thru 7

end time_format

で正しく作動すると思います。　度々、修正して済みません（お恥ずかしい）。

サポートコミュニティーの皆様、もっと良い方法がありましたら、ご指摘下さい。　宜しくお願い申し上げます。

do shell script で date コマンドを使うとシンプルにできると思います。

set fileName to "XX" & "-" & my print_date() & "-" & fileName

on print_date()

do shell script "date '+%y%m%d-%H-%M-%S'"

end print_date

Hiro.Sさん、失礼致します。　その通りですね。　とてもシンプルになりますね。　有り難うございます。

K*さん、度々、失礼致します。　色々と余計な書き込みをしてしまい、混乱なさっているかも知れませんね。　大変に申し訳ございません。　まとめると、以下のAppleScriptでご希望の操作が可能になると考えます。　御確認下さい。

using terms from application "Mail"

on perform mail action with messagesmessageList

tell application "Mail"

repeat with eachMessage in messageList

set attachmentList to (get mail attachments of eachMessage)

repeat with eachAttachment in attachmentList

set fileName to name of eachAttachment

set fileName to "XX" & "-" & my print_date() & "-" & fileName

save eachAttachment in file ("Macintosh HD:Users:hoge:Desktop:添付ファイル:" & fileName)

end repeat

end repeat

end tell

end perform mail action with messages

end using terms from

on print_date()

do shell script "date '+%y%m%d-%H-%M-%S'"

end print_date