Añadir a un contacto existente de Mail.app a Contacts.app

Esto es un vistazo rápido a esto,. lo que significa que puede ser refinado o hay una mejor respuesta.

Asumiré que sabes cómo crear un servicio de automatización. Así que aquí está una imagen que muestra la configuración.

Applescript 1:

on run {input, parameters}
    set bigList to {}
    tell application "Contacts"

        repeat with i from 1 to number of items in input
            set this_item to item i of input
            copy name of this_item to end of bigList
        end repeat
    end tell
    return bigList
end run

Applescript 2:

on run {input, parameters}
    tell application "Mail"
        set eachMessage to item 1 of (get selection)
        set theExtractAddress to extract address from (sender of eachMessage)
    end tell
    tell application "Contacts"
        set thisPerson to first person whose name is item 1 of input

        make new email at end of emails of thisPerson with properties {label:"home", value:theExtractAddress}
        save
    end tell

end run

Te pedirá permiso para acceder a la libreta de direcciones la primera vez que la ejecutes. Y es un poco lento para devolver los resultados de la búsqueda. pero funcionó en mi prueba.