Automatically save attachments in Mail?

Question

Tried Automator, as well as Rules in Mail, but I can't figure out how to automatically save attachments in emails sent by certain clients. When an email arrives from a client and the email has attachments, I'd like Mail to automatically save any and all attachments to the default downloads folder. Is this possible using either Mail's Rules or Automator? Rules does have an option for running an AppleScript, but I'm no longer up to speed on AppleScript. I'm hoping for a simpler solution.
Thanks!

Answer 1

If it is going to be called from Mail rules, it would need to be wrapped properly. Here is the script it came from. You would'nt need the on run handler.
AK
click here to open this script in your editor<pre style="font-family: 'Monaco', 'Courier New', Courier, monospace; overflow:auto; color: #222; background: #DDD; padding: 0.2em; font-size: 10px; width:400px">using terms from application "Mail"
on perform mail action with messages theMsges
set theAttachmentPath to (path to desktop) as text
tell application "Mail"
repeat with ThisMessage in theMsges
set Attached to mail attachments of ThisMessage
repeat with ThisAttach in Attached
set FileName to name of ThisAttach
save ThisAttach in theAttachmentPath & (FileName)
end repeat
end repeat
end tell
end perform mail action with messages
end using terms from
using terms from application "Mail"
on run
tell application "Mail" to set sel to selection
tell me to perform mail action with messages (sel)
end run
end using terms from
</pre>