Nettoyage des années de naissance 2000 dans mon carnet d'adresses

Essayez :

set targetYear to "2000"
set targetGroup to {}

tell application "Address Book"
    set thePeople to every person whose birth date != missing value
    repeat with aPerson in thePeople
        set birthYear to (aPerson's birth date)
        if my yearCheck(birthYear, targetYear) then set end of targetGroup to (contents of aPerson)
    end repeat
    if targetGroup != {} then set selection to targetGroup
    activate
end tell

on yearCheck(theDate, theYear)
    if theYear = (year of theDate as text) then return true
    return false
end yearCheck

Ajouté par le PO pour les novices comme lui. Cela fonctionne. Ce que j'ai fait : Ouvrir le Carnet d'adresses, cliquer sur Tous les contacts, fermer le Carnet d'adresses, fermer la connexion Internet (juste pour être sûr), copier-coller le script ci-dessus dans l'Éditeur AppleScript, appuyer sur Compiler, appuyer sur Exécuter, attendre que "Exécution..." disparaisse. Le carnet d'adresses est maintenant ouvert avec les cartes avec 2000 sélectionnées. Mettez-les dans un groupe pour un travail ultérieur...