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