Automatically download mail attachments to desktop?

Question

I'm trying to figure out how to use Mail's Rules to, as soon as it receives a mail matching specific criteria, to automatically copy any attachments from that to the desktop, then delete the e-mail.
How can I do this?

Answer 1

Paste this in a Script Editor window, then save it as a script, probably in your Library/Scripts/Applications/Mail folder, so that it is also available in the script menu when you are in Mail.
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">(* save attachments of selected messages
AK IT Carlow April 2006
will crash if file already exits
using terms from application "Mail"
on perform mail action with messages theMsges
set theAttachmentPath to "Macintosh HD:Users:austin:Desktop:" -- YOU WILL NEED TO CHANGE THIS
tell application "Mail"
repeat with ThisMessage in theMsges
set Attached to mail attachments of ThisMessage
set FileIndex to 0
repeat with ThisAttach in Attached
save ThisAttach in theAttachmentPath & (name of ThisAttach)
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>