Dotmac asks that account holders report spam to them, and I suspect that Bouncing spam might give commercial spammers the impression that they have bought a bad name and remove it. Wouldn’t it be nice if we could run one script or click a button on each email would 1. display long headers, 2. forward it to spam@mac.com, and 3. Bounce the email? A button would be ideal since we would have to verify that each email is spam.
I tried to create an AppleScript to do it last night, but got nowhere. I’m not a programmer or scripter, but it looks like it might not be possible in Mail. Display Long Headers doesn’t seem to be scriptable.
heres a simple script I wrote a while ago. Put it in your Applescript menu for easy access, or use a hotkey app.
**Do not test it on none spam, unless you change the line “send” to “save”
also you will need to put in your .mac email address in the line "set theSender to “youmailaddreshere@mac.com”
(* Copyright Mark Hunte
2005.
Sends selected spam to spam@mac.com *)
tell application "Mail"
set selectionMessage to selection
set counter to 0
set mail_number to count messages in selectionMessage
repeat with theMessages in selectionMessage
set counter to counter + 1
set theMessages to item counter of selectionMessage
set the_headers to all headers of theMessages as string
set the_content to content of theMessages
set theBody to the_headers & return & return & the_content
set theSubject to "This is spam"
set theAddress to "spam@mac.com"
set theSender to "youmailaddreshere@mac.com"
set the SenderAccount to ""
tell application "Mail"
set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody & return & return}
tell newMessage
set visible to false
set sender to theSender
make new to recipient at end of to recipients with properties {address:theAddress}
send
end tell
end tell
end repeat
end tell
