An AppleScript that will export the image file associated with an entry in Address Book.

There is no error handling, so if you have multiple (or zero) cards selected, or a card with no image, nothing will let you know it didn’t work.

Also, the ideal way to launch this script would be from Address Book’s script folder ( ~/Library/Scripts/Applications/Address Book ).

set tmp_image to ((path to temporary items folder as text) & "tmp AB") as string
tell application "Address Book"
  activate
  set this1 to selection as reference
  set file_name to name of this1
  set the_image to image of this1
  try
    set AB_image to (open for access tmp_image with write permission)
    set eof AB_image to 0
    write the_image to AB_image
    close access AB_image
  on error
    close access AB_image
  end try
  set the_image to ""
  set the_file to choose file name with prompt "Save as" default name file_name & " AB image.tiff"
end tell
tell application "Image Events"
  set this_image to open (tmp_image) as string
  set the_file to the_file as string
  save this_image in the_file as TIFF
  close this_image
end tell