¿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.

  • El misterio de la pérdida de correo electrónico: ¿por qué Mail.app no ​​puede encontrar algunos correos en el buzón?
  • Mac Mail: agregue otro post como file adjunto
  • Reglas en el correo random no se aplican
  • ¿Cómo hacer que Apple Mail avance automáticamente (con regla) mantener el formatting html?
  • ¿Por qué Apple Mail no abrirá después de la installation de OS X El Capitan 10.11? ¿Algunas ideas?
  • No se puede ver la carpeta de borradores en Mac Mail
  • Aplicación de correo 7.0: ¿qué hace realmente "Buscar nuevos posts" "Automáticamente"?
  • Cómo mover datos de correo a una tarjeta SD?
  • 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).