Ordina i contatti contrassegnati come azienda

Ho trovato un Applescript presso il sito di supporto apple per ordinare qualsiasi contatto con il segno di spunta "Azienda" controllato in un gruppo "Business":

property groupName : "Business" tell application "Contacts" if (name of groups as list) does not contain groupName then make new group at end of groups with properties {name:groupName} end if repeat with singlePerson in people if company of singlePerson is true then if (people of group groupName as list) does not contain (singlePerson as list) then make new person at end of group groupName with data singlePerson end if end if end repeat save end tell 

Non riesce:

  make new person at end of group groupName with data singlePerson 

Con errore:

 error "Contacts got an error: AppleEvent handler failed." number -10000 

Qualcuno sa di un metodo per risolvere tutti i contatti contrassegnati come "Società"?

Ad esempio, non voglio che chiunque abbia nome aziendale ma sia una carta individuale:

immettere qui la descrizione dell'immagine

Ma voglio che le aziende con il box Company contrassegnate:

immettere qui la descrizione dell'immagine

Aggiornare:

Originariamente ho pensato che non hai bisogno di Applescript per farlo.

E si potrebbe creare un gruppo intelligente che lo fa per voi.

immettere qui la descrizione dell'immagine


immettere qui la descrizione dell'immagine


MA la 'Azienda: è impostata' non è per la casella di controllo. È per il field di text effettivo della società.

Quindi non puoi utilizzare il precedente per questo in quanto non import se la casella di controllo per l'azienda è contrassegnata o less. Si preoccupa solo se c'è il text nel field Azienda.

Quindi Applescript è il modo di andare. E usando l' company is true che si riferisce alla casella di controllo.

  property groupName : "Business" tell application "Contacts" if not (exists (group groupName)) then make new group with properties {name:groupName} end if set the_people to people whose company is true repeat with i from 1 to number of items in the_people set this_person to item i of the_people add this_person to group groupName save end repeat end tell