tell application "Mail"
    try
        set theSelection to the selection
        set theFolder to (POSIX path of (path to downloads folder))
        
        if the length of theSelection is less than 1 then error "One or more messages must be selected."
        
        repeat with theMessage in theSelection
            repeat with theAttachment in mail attachments of theMessage
                try
                    if downloaded of theAttachment then
                        set theFile to theFolder & (name of theAttachment)    
                        tell theAttachment to save in theFile
                    end if
                end try
            end repeat
        end repeat
    on error error_message number error_number
        if error_number is not -128 then display alert "Mail" message error_message as warning
    end try
end tell