Apple Mail save all attachments

save_all_attachments.scpt

-- Save all attachments from selected messages/threads in Mail
-- to the current user's Downloads folder.

tell application "Mail"
	
	-- Get current selection
	set theSelection to selection
	if theSelection is {} then
		display alert "No messages selected." message "Select one or more messages or threads in Mail, then run this script again."
		return
	end if
	
	-- Resolve the Downloads folder as an HFS path (AppleScript-style text)
	set downloadsFolder to (path to downloads folder) as rich text
	
	repeat with selectedItem in theSelection
		set itemClass to class of selectedItem
		set messageList to {}
		
		if itemClass is message then
			-- A normal message
			set messageList to {selectedItem}
			
		else if itemClass is thread then
			-- A conversation / thread; grab all its messages
			set messageList to (messages of selectedItem)
			
		else
			-- Ignore anything that isn't a message or thread
		end if
		
		-- Process each message in the current item
		repeat with aMessage in messageList
			set theAttachments to every mail attachment of aMessage
			repeat with anAttachment in theAttachments
				set attachmentName to name of anAttachment
				set savePath to downloadsFolder & attachmentName
				
				try
					save anAttachment in file savePath
				on error errMsg number errNum
					-- Optional: comment out this line if you don't care about individual failures
					log "Failed to save attachment \"" & attachmentName & "\": " & errMsg
				end try
			end repeat
		end repeat
		
	end repeat
	
end tell