-- Downloaded From:
-- http://c-command.com/scripts/spamsieve/entourage-load-addresses



tell application "Microsoft Entourage"
	with timeout of 60 * 60 seconds
		set theAddresses to every email address of every contact
		set theGroupAddresses to {}
		repeat with theGroup in every group
			repeat with theEntry in theGroup's group entries
				copy address of content of theEntry to end of theGroupAddresses
			end repeat
		end repeat
		copy theGroupAddresses to end of theAddresses
	end timeout
end tell

tell application "SpamSieve"
	add entourage addresses from list theAddresses
end tell