Which Address Book names have a picture?

Question

Is there any way to easily see which cards in Address Book already have a picture? I was hoping that the tiny icon in the Name column of Card and Column view would change if you already had a picture attached to that card. Some visual indication, like the indicators for whether the card is a person, a company, or My Card. Has anyone found a way to do that?
Failing that, is there any way to persuade a Smart Group to indicate that a Card includes Picture? Or that a Card doesn't include a Picture?
Am I missing some easy way to do this? Haven't found it searching the forum, nor via Google.

Answer 1

If you run this script with Script Editor it will list in the Result pane the contacts with a picture. Remove the "not" from the line "if (count of image of APerson) is not 0 then" if you would prefer a list of contacts without a picture.
AK
click here to open this script in your editor<pre style="font-family: 'Monaco', 'Courier New', Courier, monospace; overflow:auto; color: #222; background: #DDD; padding: 0.2em; font-size: 10px; width:400px">tell application "Address Book"
set HeadnShoulders to {}
repeat with APerson in people
if (count of image of APerson) is not 0 then
set HeadnShoulders to HeadnShoulders & name of APerson
end if
end repeat
HeadnShoulders
end tell</pre>