Add to iPhoto removes file name

Question

Apple Mail - It's great that we now have the return of the "Add to iPhoto" link for image attachments However, when using this function Mail renames the file as IMAGE, IMAGE-1, IMAGE-2 etc etc in the metadata.  This creates an issue where iPhoto is then unable to detect if any of the imports are already in the library, ie duplicates.
A work around is to "Save" the images to a folder then using iPhoto "Add to Library" but this should not be necessary of course.
I found this issue on both Macs in my home so presume it could be a wide spread issue?   Anyone have any experience of it.

Answer 1

01. As per casdvm, download 'ExifTool-7.20.dmg' (872 KB in size), and install 'exiftool''.
02. Try the provided starter code, editing it according to your needs ...
--- Code starts here ---
tell application "iPhoto"
set tSelection to selection -- Obtain list of selected photos.
repeat with i in tSelection
try -- Capture any unexpected AppleScript error(s).
set imagePath to (image path of i) -- Obtain full path of file.
set imagePath to quoted form of imagePath -- Encase files' full path in single quote marks.
set {oAStid, AppleScript's text item delimiters} to {AppleScript's text item delimiters, "/"}
set imageName to last text item of imagePath as string -- Extract file name from files' full path.
set AppleScript's text item delimiters to oAStid
set imageName to get (characters 2 through ((count imageName) - 5) of imageName) as string -- Extract date and time values from file name.
set tYear to (get (characters 5 through 6 of imageName) as string) -- Extract year from file name.
if (tYear as number) > ((do shell script "date +%y") as number) then
set tYear to ("19" & tYear) as string -- Append '19' before 'tYear'.
else
set tYear to ("20" & tYear) as string -- Append '20' before 'tYear'.
end if
set createDate to tYear & "." & (get (characters 3 through 4 of imageName) as string) & "." & (get (characters 1 through 2 of imageName) as string) & " " & (get (characters 8 through 9 of imageName) as string) & "." & (get (characters 11 through 12 of imageName) as string) & ".00"
do shell script ("exiftool -DateTimeOriginal='" & createDate & "' -CreateDate='" & createDate & "' -overwriteoriginal_inplace " & imagePath) -- View 'exiftool -h' in 'Terminal'.
end try
end repeat
end tell
--- Code ends here ---