Re: new SPAMCOP script for Entourage?

[Allen Watson]

Title: Re: new SPAMCOP script for Entourage?

Edit the first line to contain your SpamCop E-mail address; save it from Script Editor. Select junk mail; run the script.

Suggest you let Junk Mail filer move junk to a special folder; review it before running this script on it.

property spamAddr : "SpamCop <email-address>"
if spamAddr = "SpamCop <email-address>" then
   display dialog "Please edit the script and put your SpamCop address in the first line."
    return
end if
if spamAddr = "SpamCop <email-address>" then return

tell application "Microsoft Entourage"
    set currentMessages to the current messages
   repeat with theMsg in the currentMessages
       my ProcessMsg(theMsg)
    end repeat
end tell

on ProcessMsg(theMsg)
    tell application "Microsoft Entourage"
        if class of theMsg is incoming message then
           set src to (the headers of theMsg) & return & (the content of theMsg)
            make new outgoing message at out box folder with properties ¬
                {content:src, subject:"Spam report", recipient:spamAddr}
        else
           display dialog "No incoming message selected."
        end if
   end tell
end ProcessMsg
tell application "Microsoft Entourage"
    set currentMessages to the current messages
    repeat with theMsg in the currentMessages
        my ProcessMsg(theMsg)
    end repeat
end tell

on ProcessMsg(theMsg)
    tell application "Microsoft Entourage"
        if class of theMsg is incoming message then
            set src to (the headers of theMsg) & return & (the content of theMsg)
            make new outgoing message at out box folder with properties ¬
                {content:src, subject:"Spam report", recipient:spamAddr}
        else
            display dialog "No incoming message selected."
        end if
    end tell
end ProcessMsg
--
Microsoft MVP for Entourage/OE/Word
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
Applescripts for Outlook Express and Entourage: <http://homepage.mac.com/allenwatson/>

> From: "Harry (lists)" <[EMAIL PROTECTED]>
> Reply-To: "Entourage:mac Talk" <[EMAIL PROTECTED]>
> Date: Fri, 14 Dec 2001 21:58:32 -0800
> To: Entourage mac Talk <[EMAIL PROTECTED]>
> Subject: new SPAMCOP script for Entourage?
>
> has anyone modified the original spamcop script
> to automatically send an appropriate message, instead of opening up IE to
> the spamcop page?