Mail.appの迷惑メール差出人をリストアップするプログラム
とりあえずこんなもんかな.
tell application "Mail" -- initialize set i to 0 set senderList to {} -- make empty list repeat with thisMessage in messages of junk mailbox set i to i + 1 -- get sender name set nameSender to sender of thisMessage set nameFrom to extract name from nameSender set found to my exceptName(nameFrom, senderList) if (found = false) then set senderList to senderList & nameFrom log ("Added:" & nameFrom) end if end repeat -- printout sender name end tell