On 1/12/01 10:57 PM, Sherman Wilcox wrote:

> I also like to have two scripts for dealing with incoming messages:
> 
> One opens the incoming message (useful when they're buried in nested folders
> and/or it's from someone important).

this script opens a message...

tell application "Microsoft Entourage"
    set theMsg to item 1 of (get current messages)
    open theMsg
end tell


> The other opens the incoming message and also sets it to be deleted from the
> server. I use it for messages from friends, whose messages I want to read
> immediately (but a rule routes them to a nested folder), and yet I
> invariably know that it's not something worth keeping on the server to pick
> up later at another location.

this script tells Entourage to delete message from the server...

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

-- process the messages

on ProcessMsg(theMsg)
    
    tell application "Microsoft Entourage"
        
        
        -- delete email at next connection
        if (connection action of theMsg) exists then
            set (connection action of theMsg) to (remove at next connection)
        end if
        
    end tell
end ProcessMsg


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

Reply via email to