Delete, Mark as Read, and Unflag

[Bruce Klutchko]

Title: Delete, Mark as Read, and Unflag

Usually when a message is deleted we would hope that it is marked as read and not flagged. This way, the Folder List isn't muddied with an unnecessary bold or flag of the Deleted Items folder.

Looking on Allen W's website, I came across a script to delete and mark as read. I added a line to unflag the message, which I believe adds useful functionality. Here is the modified script, which I hope Allen will place on his website either along with or in lieu of the original.

Bruce


-- Script to Unflag, Mark as Read, and then Delete a message
-- Script from a message sent by Bruce Klutchko
-- on Monday, October 9, 2000 5:31:51 PM

tell application "Microsoft Entourage"
    set theMsgs to the current messages
   repeat with theMsg in theMsgs
        set the read status of theMsg to read
       set flagged of theMsg to false
       if class of theMsg is outgoing message then set the delivery status of theMsg to sent
       delete theMsg
    end repeat
end tell

--  
Bruce Klutchko

[EMAIL PROTECTED]