Title: Re: script needed: 'show source'
>and dealing with junk-mail is
>certainly repetitive.

Harry,

Try this. It isn’t necessarily pretty, but it works. Run it with a message showing, then paste the clipboard into the appropriate box in Spamcop’s web page. Note you’ll probably want to change the URL in the openURL statement.


-- 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 headers 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://www.spamcop.com" toWindow 0 -- replace with the correct URL
   end tell
end
ProcessMsg

Reply via email to