Jump to content

linuxcoder

Members
  • Content count

    1
  • Joined

  • Last visited

About linuxcoder

  • Rank
    InsanelyMac Protégé
  1. I wrote a script to fill a need I couldn't find anywhere else. Deleting emails who have a certain percentage of non Alpha characters in the subject line, so they can skate by keyword filters. So emails like "A+D;U)L`T+ V_I &D#E 0)S" in the subject would be deleted. It's written for Entourage, but the logic could be easily used for other email apps. on run tell application "Microsoft Entourage" -- delete messages that have <threshhold> percentage of characters -- outside the range of A..Z and a..z (and space) in the subject line. -- This is to zap emails that substitute special character for letters, to get -- past spam filters that drive off key words. Threshhold can be -- adjusted as you see fit. I arbitrarily chose .15. Also, the characters -- included or excluded in either category can be easily changed. -- NOTE: This permanently deletes, so if you don't want that, just -- remove the 2nd delete below. set CurrMessages to the current messages set alphaChar to 0 as integer -- number of Alpha characters and Space set otherChar to 0 as integer -- number of non Alpha characters set otherRatio to 0.0 as real -- otherChar / alphaChar set threshhold to 0.15 as real -- adjust this to whatever works repeat with theMsg in the CurrMessages set subj to the subject of theMsg repeat with thisCharacter in the characters of subj set thisCharacter to thisCharacter as text if (thisCharacter ≥ "A" and thisCharacter ≤ "Z") or (thisCharacter ≥ "a" and thisCharacter ≤ "z") or (thisCharacter = " ") then set alphaChar to alphaChar + 1 else set otherChar to otherChar + 1 end if end repeat set otherRatio to otherChar / alphaChar end repeat if otherRatio > threshhold then delete theMsg -- put in Deleted Folder delete theMsg -- delete permanently end if end tell end run
×