C'è un modo per aggiungere tutti i destinatari di un'e-mail a un gruppo / cartella nei contatti da Mail?

3

In mail, ricevo email a un elenco di circa 50 persone, che devono essere tutte nella mia rubrica. C'è un modo per aggiungerli tutti in una volta? Posso dire di aggiungerne uno alla volta, ma non riesco a farlo ottenere di più.

    
posta Ethan 11.09.2011 - 01:17
fonte

1 risposta

2

Forse un AppleScript come questo può aiutarti. Nota che non sono molto abile in AppleScript, quindi sono sicuro che questo può essere migliorato, ma nessuno ha risposto finora.

  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
    
risposta data 21.09.2011 - 05:04
fonte

Leggi altre domande sui tag