Je cherche simplement à créer une liste des adresses électroniques
d'une sélection de contacts, adresses séparées par une virgule de
façon à pouvoir copier la liste sur un site.
J'ai fini par trouver ce qui suit, qui me parait bien compliqué en
regard de la simplicité du problème......
je suis donc preneur de tout conseil car je suis sûr qu'il y a
beaucoup mieux.....et donc merci d'avance
--SCRIPT
tell application "Address Book"
activate
set TheContacts to selection
set listemail to {}
repeat with ThisContact in TheContacts
set adresse to ""
try
set p to (properties of email 1 of ThisContact)
set adresse to (value of p)
end try
if adresse is not "" then
set end of listemail to (adresse & ", " & return)
end if
end repeat
end tell
if listemail is not {} then
set the clipboard to listemail as string
activate
display dialog "La liste des adresses mail des contacts sélectionnés
a été copiée dans le presse papier." buttons {"OK"} default button
{"OK"} giving up after 3
else
activate
display alert "Aucune adresse trouvée !" buttons {"OK"} default
button {"OK"} giving up after 3
end if
--SCRIPT
_______________________________________________
archives :
http://listes.patpro.net/list/sshfr.fr.html
http://listes.patpro.net/mailman/listinfo/script_shell_fr
