-- Downloaded From: http://c-command.com/scripts/spamsieve/entourage-discard-spam
-- Last Modified: 2007-08-17



property spamFolderName : "Junk E-mail"

tell application "Microsoft Entourage"
    set theIDs to {}
    repeat with m in messages of folder spamFolderName
        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