[<] Sujet : [AS] Trouver_un_script_qui_recupère_les_adresses _email_envoyées_en_CC_dans_mes_BAL
De : Roger Le Guen <anonyme@...>
Date : 2010-06-19 18:34:33
Sujet : Re: [AS] Trouver_un_script_qui_recupère_les_adresses _email_envoyées_en_CC_dans_mes_BAL
De : Yves PETRONIN <anonyme@...>
Date : 2010-06-19 22:20:51
Voici un début de piste... Je suis en version OSX 10.4.11, et il peut
y avoir des modifications dans les verisions plus récentes. Le
script ci dessous, très peu testé, collecte une longue liste. Il
faudrait encore éliminer de la liste les doublons, probablement très
nombreux, ainsi que traiter et nettoyer la plupart des headers, pour
en extraire uniquement les adresses et donc éliminer les noms en
clair.....Un peu de travail en plus......avant toute injection
éventuelle dans le carnet d'adresses, qui devrait être assez simple
si la liste est propre.....
Il existe dans le dictionnaire de mail un "cc recipient n [inh.
recipient > item]" mais je n'ai trouvé aucun moyen de l'utiliser.
Par ailleurs je suggère pour la mise au point de créer une boite aux
lettres spécifique, nommée par exemple "BAL test" et de modifier le
script comme dans la deuxième version, surtout si les messages sont
très nombreux.
--SCRIPT
property pmyMailAddress : "anonyme@..."
tell application "Mail"
set ListOfMailBoxes to (every mailbox)
repeat with TheMailBox in ListOfMailBoxes
set ListOfMessages to messages of TheMailBox
set L to {}
repeat with theMessage in ListOfMessages
if (address of (to recipient of theMessage)) as string is
pmyMailAddress then
if header "cc" of theMessage exists then
set end of L to content of header "cc" of theMessage
if (count L) = 20 then exit repeat -- Limitation à 20 adresses
pour tests
end if
end if
end repeat
end repeat
end tell
return L --Liste des éléments des headers "cc" qui doit être encore
être filtrée pour une réutilisation
--SCRIPT
--SCRIPT pour essais sur une seule BAL nommée "BAL test"
property pmyMailAddress : "anonyme@..."
tell application "Mail"
--set ListOfMailBoxes to (every mailbox)
--return ListOfMailBoxes
--repeat with TheMailBox in ListOfMailBoxes
set ListOfMessages to (every message of mailbox "BAL test")
set L to {}
repeat with theMessage in ListOfMessages
if (address of (to recipient of theMessage)) as string is
pmyMailAddress then
if header "cc" of theMessage exists then
set end of L to content of header "cc" of theMessage
if (count L) = 20 then exit repeat -- Limitation à 20 adresses
pour tests
end if
end if
end repeat
--end repeat
end tell
return L --Liste des éléments des headers "cc" qui doit être encore
etre filtrée pour une réutilisation
--SCRIPT
_______________________________________________
Applescript_fr mailing list
anonyme@...
http://listes.patpro.net/mailman/listinfo/applescript_fr
Sujet : Re: [AS] Trouver_un_script_qui_recupère_les_adresses _email_envoyées_en_CC_dans_mes_BAL
De : Yves PETRONIN <anonyme@...>
Date : 2010-06-20 06:48:46