Re: "Trim content" script

[Allen Watson]

Title: Re: "Trim content" script

I have the same script; it works unaltered with Erage, just changing the program name:

-- sets the message content to be the selected content
-- great for trimming a message to it's bare bones
-- ie. trimming out all the spamming adverts!
-- by Eric Scheid, Ironclad Internet, [EMAIL PROTECTED]
-- modified by Omar Shahine [EMAIL PROTECTED]
-- now it works on Microsoft Entourage

on run
    tell application "Microsoft Entourage"
        set windowClass to the class of the front window
        if windowClass is not message window then
            display dialog ¬
                "This only works on incoming messages" buttons {"OK"} ¬
                default button {"OK"}
            return false
        end if
        set theDialog to display dialog "Are you sure you want to trim the content of the message " & ¬
            " this cannot be undone?" buttons {"Cancel", "Trim"} default button "Trim" with icon caution
        if button returned of theDialog is "Cancel" then return
        
        set the_window to front window
        set the_msg to displayed message of the_window
        set new_msg_content to the selection
        
        if new_msg_content is "" then
            display dialog ¬
                "Please select the content you want to keep" buttons {"OK"} ¬
                default button {"OK"}
            return false
        end if
        
        set the content of the_msg to new_msg_content
    end tell
end run

On or near 6/15/01 8:49 PM, Dan Frakes at [EMAIL PROTECTED] observed:

> I have a script for Emailer that would allow you to select a section of an
> incoming message and "trim" the message to just that content. Would any of
> our AppleScript gurus care to update it for Entourage?
>
> [I realize I can select "edit message" and then edit it manually, but the
> script is much quicker ;)]
>

--
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/>