[<] 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

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

Voici une version qui me parait finalement mieux convenir à la mise  
au point.
j'ai essayé de filtrer les adresses dès la constitution de la liste  
L, mais il y a en pratique, des résultats comme ci dessous....C'est à  
dire qu'il y des adresses ordinaires, mais aussi des adresses  
accompagnées du nom (que l'on souhaiterait récupérer pour injection  
dans le carnet d'adresses) et aussi des adresses formatées sans doute  
dans un envoi html...

{"Yves PETRONIN <anonyme@...>", "anonyme@...- 
service.gouv", ""anonyme@..." <modification- 
anonyme@...>", ""anonyme@..."  
<anonyme@...>", "anonyme@..."}

Je suis sûr que quelqu'un de la liste a sans doute résolu déjà de  
tels problèmes de filtrages d'adresses....peut être à l'aide de  
scripts shell ou perl....

Salutations

--SCRIPT3

property pmyMailAddress : "anonyme@..."

tell application "Mail"
	set ListOfMessages to every message of mailbox "INBOX" of account 1  
-- pour tests
	set L to {}
	repeat with theMessage in ListOfMessages
		if pmyMailAddress is in (address of (to recipient of theMessage))  
then -- ligne modifiée pour le cas où il y a plusieurs destinaires  
principaux
			if header "cc" of theMessage exists then
				set CcHeader to content of header "cc" of theMessage
				if CcHeader is not "" then -- elimination des headers vides
					if L does not contain CcHeader then -- élimination des doublons
						set end of L to CcHeader
					end if
					--if (count L) = 20 then exit repeat -- Limitation à 20 adresses  
pour tests
				end if
			end if
		end if
	end repeat
end tell

return L --Liste des éléments des headers "cc" qui doit être encore  
etre filtrée pour une réutilisation
--SCRIPT3


_______________________________________________
Applescript_fr mailing list
anonyme@...
http://listes.patpro.net/mailman/listinfo/applescript_fr

Apple, AppleScript, AppleScript Studio, AppleTalk, AppleWorks, ColorSync, Finder, HyperCard, iBook, iLife, iMac, iWork, Keynote, Mac, Macintosh, Mac OS, Pages, Panther, PowerBook, Power Mac, Power Macintosh, QuickTime, Safari, Tiger, Xcode sont des marques déposées par Apple Computer, Inc., enregistrées aux Etats-Unis et dans les autres pays. Liste officielle