On 9/2/05 7:33 pm, "Steve Sell" <[EMAIL PROTECTED]> wrote:

> Hi Barry - would you feel like modifying this at all?
> 
> Can you make it set the subject to the name of the first attachment (if one
> exists) as the default text, then if there is no attachment, have it grab
> the first 50 characters of the body?
> 
> 
> -Steve

http://tinyurl.com/6zeqd


tell application "Microsoft Entourage"
    try
        set theMessage to item 1 of (get current messages)
        if (count attachments of theMessage) > 0 then
            set defaultSubject to name of attachment 1 of theMessage
        else
            set defaultSubject to paragraph 1 of (get content of theMessage)
            if count defaultSubject > 50 then set defaultSubject to text 1
thru (-1 - (get offset of " " in (reverse of characters of defaultSubject as
string))) of defaultSubject
        end if
        set subject of theMessage to text returned of (display dialog
"Please
 enter a new subject for this message:" default answer defaultSubject
buttons {"Cancel", "OK"} default button 2 with icon note)
    on error
        display dialog "Please select a message before running this script"
buttons {"Abort"} default button 1 with icon stop
    end try
end tell

-- 
Barry Wainwright
Microsoft MVP (see http://mvp.support.microsoft.com for details)
Seen the All-New Entourage Help Pages? - Check them out:
        <http://www.entourage.mvps.org/>

-- 
To unsubscribe:                     
<mailto:[EMAIL PROTECTED]>
archives:       
<http://www.mail-archive.com/entourage-talk%40lists.letterrip.com/>
old-archive:       
<http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>

Reply via email to