Mac OS XのMailで選択したメッセージのタイトルと受信日時の一覧抽出

Mac OS Xの「メール」アプリケーションで、選択したメッセージすべての「タイトル（Subject）」と「受信日時」をコンマ区切りでデータ化してクリップボードにコピーしてくれるAutomatorワークフロー
あくまでも「メール」というメールソフトだけで使えるやつなのでさんだーばーどとかは知らん

がハードディスクを整理していたら出てきたのでここに晒す
もしかしたら前にも書いてるかもしれないけど

１，選択したメールメッセージを取得を追加（選択項目を取得：メッセージ）
２，AppleScriptを実行

on run {input, parameters}

tell application "Mail"
set temp to ""
repeat with eachMessage in input

set theSubject to subject of eachMessage
set {year:y, month:m, day:d, time string:t} to (date sent of eachMessage)
-- set theDate to ((y * 10000 + m * 100 + d) as string) & " " & (t as string)
set theDate to ((y) as string) & "/" & ((m) * 1 as string) & "/" & ((d) as string) & " " & (t as string)
set temp to temp & theSubject & "," & theDate & (ASCII character 13)

end repeat
set the clipboard to temp
end tell

end run

こういう感じにして

メールを選択して

Automatorの実行ボタンをポチっとする。
上記の３通選択して実行した例だとこういうのがクリップボードにコピーされる

[Fruitmail](10ポイント)ライフスタイルに関するアンケート,2013/2/13 23:48:09
[goo Research]インターネットの利用等に関するアンケート☆本調査まで回答で最大210ポイント☆,2013/2/14 10:46:06
[ECナビ 総合] あなたにハートとポイントをお届けします♪,2013/2/14 4:00:47

Excelとかで加工すればA列にSubject、B列に受信時刻などという感じにできるはず

ホントなんのために作ったのかは不明、たぶんメールの受信時刻を簡単にコピーできなかったのでイライラして作ったんだとおもうけど。
ポイントサイトももう３年ぐらいやってないなー