Re: Script for Spamcop reporting...

[Allen Watson]

Title: Re: Script for Spamcop reporting...

I have one that worked for Entourage last time I tried it, which was months ago:

-- this script takes a message in Ent, copies the headers to the clipboard,
-- and opens a new window in MSIE
-- it only works on one message at a time

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

on ProcessMsg(theMsg)
    
    tell application "Microsoft Entourage"
        -- activate -- use only if not already in Entourage
        set messHeaders to source of the theMsg
        set the clipboard to messHeaders as string
    end tell
    
    
    
    tell application "Internet Explorer"
        Activate -- delete to keep IE in background
        OpenURL "http://spamcop.net/?code=ze3827fab9afaf5f25a0797274943d0d3zallenwatson%40earthlink.net
" toWindow 0 -- replace with the correct URL
    end tell
end ProcessMsg

On or near 10/9/01 3:36 PM, David Cortright at [EMAIL PROTECTED] observed:

> Carl Ketterling, [EMAIL PROTECTED], wrote one for use with Claris Emailer.
> I'm sending Harry a copy of it. It probably can be adapted for use with
> Entourage without too much effor.
>
>> From: "Harry (lists)" <[EMAIL PROTECTED]>
>> Reply-To: "Entourage:mac Talk" <[EMAIL PROTECTED]>
>> Date: Tue, 09 Oct 2001 15:27:26 -0700
>> To: Mac Entourage Talk <[EMAIL PROTECTED]>
>> Subject: Script for Spamcop reporting...
>>
>> Does anyone know, for Entourage, of a script that will allow automatic
>> 'forwarding' of spam/junk mail to spamcop's reporting page, opened on IE,
>> pastes the source into it, and hits 'submit' on IE? This would be a nice
>> automation for spamcop reportings.
>>
>> Harry
>>
>>
>> --
>> To unsubscribe:               <mailto:[EMAIL PROTECTED]>
>> To search the archives:
>>         <http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>
>>
>

--
Add me to Palm/Visor: http://signature.coola.com/?[EMAIL PROTECTED]
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
A Mac family since 1984 <http://home.earthlink.net/~allenwatson/>
Applescripts for Outlook Express and Entourage: <http://homepage.mac.com/allenwatson/>