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

3

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

    
pregunta Ethan 11.09.2011 - 01:17

1 respuesta

2

Tal vez un AppleScript como este pueda ayudar. Tenga en cuenta que no soy muy competente en AppleScript, así que estoy seguro de que esto 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
    
respondido por el Daniel 21.09.2011 - 05:04

Lea otras preguntas en las etiquetas