Guardar los archivos adjuntos de Mail.app en función de los asuntos

Lo que estoy tratando de hacer: Tengo que escanear unos escritos personales que hago para que los revise mi mentor, tengo 3 tipos de escritos J,F,W. Uso mi escáner para enviarlos por correo electrónico (es algo del trabajo así que no puedo cambiarlo). Esta mañana se me ocurrió que podría poner el código en el asunto del escáner y luego tener una regla para procesar los correos y archivarlos en la carpeta correcta para mí.

He encontrado y reutilizado el script en el post Guardar los archivos adjuntos de Mail.app en función del asunto Respuesta de markhunte

Estoy usando Mail en MacOSX 10.13.6

Para poder hacer pruebas, he comentado la función de la regla de correo.

Mi prueba es sólo de mí para seleccionar manualmente los mensajes en la aplicación de correo (se convertirá en regla una vez que funciona).

Una cosa que no me entra en la cabeza es que la primera vez que guarda el archivo no lo renombra. Verás que he utilizado los registros para ayudarme a resolver esto. En la primera ejecución del script, la sentencia IF piensa que la carpeta existe y por eso no renombra el archivo, vuelve a ejecutar el script y lo renombra correctamente.

Me siento un poco confundido, la ayuda sería muy apreciada.

Mi correo electrónico tiene líneas de asunto con una sola letra (lo hago cuando escaneo documentos para que sea más fácil). El nombre del archivo adjunto es siempre scan.pdf

Parece que hay un problema con el codeList también, no encuentra el primer elemento de la lista (por lo que tengo J dos veces), no es un gran problema actualmente.

    (*using terms from application "Mail"
    on perform mail action with messages theMessages for rule theRule*)

set codeList to {"J", "F", "W", "O", "J"}
set subFolder to ""
set theDate to do shell script "date +%Y_%m_%d_%H%M%S"
--set ruleName to name of theRule

-- The folder to save the attachments in (must already exist)
tell application "Finder" to set attachmentsFolder to ((path to home folder as text) & "Desktop") as text

tell application "Mail"
    set theMessages to the selected messages of the front message viewer
    --set theMessage to first item of theMessages

    repeat with eachMessage in theMessages
        set theSubject to subject of eachMessage
        repeat with i from 1 to number of items in codeList
            set this_item to item i of codeList
            if theSubject contains this_item then

                set subFolder to this_item
                log "Found subject match " & this_item

            else
                -- display dialog "no subject " & this_item
                log "no subject " & this_item

            end if

        end repeat
        if (count of (eachMessage's mail attachments)) > 0 then
            log "Number of attachments is " & (count of (eachMessage's mail attachments))
            try

                tell application "Finder"

                    if not (exists folder subFolder of folder attachmentsFolder) then
                        make new folder at attachmentsFolder with properties {name:subFolder}
                    end if
                end tell
                -- Save the attachment
                repeat with theAttachment in eachMessage's mail attachments

                    set originalName to name of theAttachment
                    set savePath to attachmentsFolder & ":" & subFolder & ":" & originalName

                    tell application "Finder"
                        if (exists file originalName of folder subFolder of folder attachmentsFolder) then
                            set savePath to attachmentsFolder & ":" & subFolder & ":" & theDate & "_" & subFolder & "_" & originalName
                            log "File will be saved to path: " & attachmentsFolder & ":" & subFolder & ":" & theDate & "_" & subFolder & "_" & originalName
                        else
                            log "Found that file path already exits: " & attachmentsFolder & ":" & subFolder & ":" & theDate & "_" & subFolder & "_" & originalName
                        end if
                    end tell
                    try
                        save theAttachment in file (savePath)
                        log "saved file to " & savePath
                    end try
                end repeat
            on error error_message number error_number

            end try
        else
            log "Number of attachments is " & (count of (eachMessage's mail attachments))
        end if
    end repeat

end tell
(*end perform mail action with messages
end using terms from*)