-- Entourage - Discard Read Spam
-- https://c-command.com/scripts/spamsieve/entourage-discard-read-spam
-- Summary: Completely deletes the messages in the Spam folder that have been read.
-- Requires: SpamSieve, Entourage
-- Install Location: ~/Documents/Microsoft User Data/Entourage Script Menu Items/
-- Last Modified: 2019-05-24



property spamFolderName : "Junk E-mail"

tell application "Microsoft Entourage"
    set theIDs to {}
    repeat with m in messages of folder spamFolderName whose read status is read
        copy m's ID to end of theIDs
    end repeat
    repeat with theID in theIDs
        set m to message id theID of folder spamFolderName
        delete m
        set m to message id theID of folder "Deleted Items"
        delete m
    end repeat
end tell