¿Hay alguna manera de agregar todos los destinatarios de un correo electrónico a un grupo / carpeta en los contactos de Correo?

En el correo, recibiré un correo electrónico a una list de aproximadamente 50 personas, todas las cuales deben estar en mi libreta de direcciones. ¿Hay alguna manera de agregarlos todos a la vez? Puedo decir que agregue uno a la vez, pero parece que no puedo hacer más que eso.

  • ¿Cómo se corrige cuando Facebook elige el contacto equivocado?
  • ¿Puedo obligar a Apple Mail a mostrar "Re:" nuevamente en lugar de la traducción alemana (y mala) de "Aw"?
  • ¿Por qué mis correos electrónicos de Desarrollador de Apple son azules?
  • No se puede eliminar la count de Exchange de las preferences de Correo o Cuentas de Internet
  • ¿Cómo puedo arreglar el tipo pequeño en el correo de iOS 10?
  • SMTP con STARTTLS en iPad
  • Eliminando certificate de confianza de Mail en iOS 8
  • Los posts sin marcar en Mail.app permanecen marcados en Outlook
  • El correo sigue marcando "Guardar borradores en el server" marcado
  • Reglas en el correo random no se aplican
  • outlook.com (Exchange ActiveSync) en OS X Mountain Lion
  • Mail.app configurado para acceder a gmail, ¿hay alguna forma de sincronizar los "elementos enviados"?
  • One Solution collect form web for “¿Hay alguna manera de agregar todos los destinatarios de un correo electrónico a un grupo / carpeta en los contactos de Correo?”

    Tal vez un AppleScript como este puede ayudar. Tenga en count que no soy muy competente en AppleScript, por lo que estoy seguro de que se puede mejorar, pero nadie ha respondido hasta ahora.

    tell application "Mail" set theSelection to selection set theMessage to item 1 of theSelection set theSubject to subject of theMessage tell application "Address Book" set theGroup to make new group with properties {name:theSubject} end tell set theRecipients to to recipients of item 1 of theMessage repeat with a from 1 to count theRecipients set theRecipient to item a of theRecipients tell application "Address Book" set theName to name of theRecipient tell application "Mail" to set theAddress to address of theRecipient set thePerson to make new person with properties {first name:name of theRecipient} make new email at end of emails of thePerson with properties {value:theAddress} add thePerson to theGroup end tell end repeat set theRecipients to cc recipients of item 1 of theMessage repeat with a from 1 to count theRecipients set theRecipient to item a of theRecipients tell application "Address Book" set theName to name of theRecipient tell application "Mail" to set theAddress to address of theRecipient set thePerson to make new person with properties {first name:name of theRecipient} make new email at end of emails of thePerson with properties {value:theAddress} add thePerson to theGroup end tell end repeat tell application "Address Book" to save end tell 
    Loving Apple Products like poisoning (iPhone, iPad, iMac, Macbook, iWatch).