[AppleScript] supprimer des adresse aberantes dans carnet d'adresses

[BillW]

Bonjour
J'ai une grande liste de mails professionnels, mais , je ne sais par quelles erreurs de manipulations, chaque professionnels a une multitude d'adresses de travail. J'aimerais pouvoir effacer toutes les adresses de ces professionnels (qui sont situés dans un groupe) , sauf la première. Comment réaliser cela avec apple script ?
Merci pour vos réponses
Bill

[PBELL]

Bonsoir BillW,
Désolé pour cette réponse tardive.
Voici un exemple de script qui te servira de point de départ.
Je ne l'ai pas testé (car je ne veux rien supprimer dans mon carnet), mais j'ai testé des parties :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
property Ton_Groupe : "Nom_Groupe"

tell application "Address Book"
	-- verifie si le groupe "Ton_Groupe" existe et sinon, le crée
	if not (exists group Ton_Groupe) then
		display dialog "ce groupe n'existe pas !" buttons {"fin"}
	end if
	
	-- compte le nombre de contact à traiter
	set N_Person to count of person of group Ton_Groupe
	
	-- boucle sur pour chaque contact 
	repeat with I from 1 to N_Person
		set La_Personne to person I of group Ton_Groupe
		-- test si plus d'une adresse de travail et supprime
		set N to name of La_Personne
		set T to address of La_Personne
		--repeat while (count of (addresses of La_Personne)) > 1
		-- Supprime la dernière addresse
		-- remove last address from La_Personne
		-- save
		--end repeat
	end repeat
	display dialog "Fin de traitement"
end tell

Attention, il faut reprendre la partie de code sur l'adresse proprement dite car tu ne précises pas si tes doublons portent sur l'adresse email, l'adresse postal ou une autre adresse.
Par ailleurs attention à la notion de "première adresse": Le premier ID dans le carnet de contact n'est peut être pas celui que tu vois en premier !

Cordialement