tow.com

There are currently 962 people in my Address Book, of which 231 of them have accompanying images. It’s very time-consuming to:

1. Find the next entry without a photo
2. Locate an image of the person
3. Attach the photo to the entry

To make things go a little faster, I wrote an AppleScript that deals with step one.

property groupName : “No Image”

tell application “Address Book”
set theGroup to group named groupName

repeat with aPerson in people
try
if not image of aPerson then
end if
on error errMsg number errNum
if errNum is -2763 then add aPerson to theGroup
end try
end repeat
end tell

Make sure that you have a group named groupName before running this script. Error number -2763 occurs when the image does not exist in the person. The script then adds that entry into the selected group. As you add photos to entries, remove all the people from the group and run the script again to repopulate the group.

My next step will be to write an AppleScript that searches through my image catalog for the person’s name. That will be for another day, however.