Entourage - Whitelist Sender Domains

Summary: Creates whitelist rules for the senders’ domains.
Requires: SpamSieve, Entourage
Install Location: ~/Documents/Microsoft User Data/Entourage Script Menu Items/
Last Modified: 2010-11-27

Description

For each selected message in Entourage, creates a whitelist rule in SpamSieve that accepts messages sent from the sender’s domain. For example, if you run the script on a message from “steve@apple.com”, it will create a whitelist rule saying “From (address) Ends With ‘apple.com’.”

Installation Instructions · Download in Compiled Format · Download in Text Format

Script

tell application "Microsoft Entourage"
    
set msgs to current messages
    
repeat with m in msgs
        
set a to address of m's sender
        
set d to text (offset of "@" in a) through -1 of a
        
tell application "SpamSieve"
            
tell whitelist
                
make rule with properties {text to match:d, match style:ends with style, match field:from field}
            
end tell
        
end tell
    
end repeat
end tell