The "use your left hand" idea still holds, but you would have to type at
least one keystroke and THEN hit Command-S for it to actually save the
message in your Drafts folder.  If you just hit Command-S, it doesn't
actually save anything since you haven't modified the message.

As an AppleScript Newbie here... I kludged together the script below, which
is supposed to solve the Save As Draft issue with a single script.
It's supposed to Reply to a message, type a > (so that the message is
"savable"), and then save the message to Drafts, leaving the message window
open.  Unfortunately, it does a "Save As" for some reason even though I am
just trying to get a straight Command-S save.

Any tips or ideas?  Also, is there some simple Applescript way to execute
menu commands?  Ideally, this script could just be 3 lines long:
write "command-R"
Write " "
Write "command-S"

But apparently things aren't quite that simple.

Thanks,
=Dave Holst
[EMAIL PROTECTED]

-------

tell application "Microsoft Entourage"
    
    set currentMessages to the current messages
    if currentMessages is {} then
        display dialog "You must select a message to reply, save and keep
open." buttons "OK" default button "OK" with icon 0
        return
    else
        if the class of the front window is message window then
            set theMsg to the displayed message of the front window
            my ProcessMsg(theMsg)
        else
            set theMessages to the selection
            repeat with theMsg in theMessages
                my ProcessMsg(theMsg)
            end repeat
        end if
    end if
end tell



-- process the messages
on ProcessMsg(theMsg)
    tell application "Microsoft Entourage"
        set theContent to ">" & return & the content of theMsg
        set theResend to reply to theMsg
        set the content of theResend to theContent
        save theMsg
    end tell
    
end ProcessMsg



-------------

-- 
Word.Net Communications =http://Word.Net =eMailto:[EMAIL PROTECTED] =
 http://1-877-Site.Com =360MB Domains from $7.50/month!
--= Better... Faster... Cheaper... Webhosting @ Word.Net! =--


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

Reply via email to