Ajouter à un contact existant de Mail.app à Contacts.app

Il s'agit d'un examen rapide de la question, ce qui signifie qu'elle peut être affinée ou qu'il existe une meilleure réponse.

Je suppose que vous savez comment créer un service d'automatisation. Voici donc une image montrant la configuration.

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

Il demandera la permission d'accéder au carnet d'adresses la première fois que vous le lancerez. Il est un peu lent à renvoyer les résultats de la recherche, mais il a fonctionné dans mon test.