Organiza a agenda de contatos do MacBook eliminando os contatos que não possuem um número de telefone.

addressbok.applescript

tell application "Address Book"
	activate
	
	## caso queria que atualize somente os selecionados
	#set lista to selection 
	
	## selecine todos os contatos
	set lista to people
	
	## percorro cada contato e removo os que não possuem um telefone
	repeat with contato in lista
		
		if (number of phones of contato = 0) then
			delete contato
		end if
		
	end repeat
	
	save
end tell