Dans le courrier électronique, j'enverrai des courriels à une liste d'environ 50 personnes, qui doivent toutes figurer dans mon carnet d'adresses. Existe-t-il un moyen de les ajouter toutes en même temps ? Je peux lui demander d'en ajouter une à la fois, mais je n'arrive pas à en faire plus.
Réponse
Trop de publicités?
Un AppleScript comme celui-ci peut peut-être vous aider. Notez que je ne suis pas vraiment compétent en AppleScript, donc je suis sûr que cela peut être amélioré, mais personne n'a répondu jusqu'à présent.
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
