-- Downloaded From: http://c-command.com/scripts/spamsieve/apple-mail-report-spam
-- Last Modified: 2007-08-17



tell application "Mail"
    set theMessages to the selection
    repeat with theMessage in theMessages
        set newMessage to make new outgoing message at end of outgoing messages
        tell newMessage
            set content to theMessage's source
            set subject to theMessage's subject
            make new to recipient with properties {address:"spam@uce.gov"}
        end tell
        send newMessage
    end repeat
end tell