Auto saving email attachments using date email received as the name of the attachment file

Question

I would like to be able to batch save hundreds of email attachments in my inbox to a specified folder and use the date and time email was received as the name of the file.  i found sample script that would give it timestamp but would prefer date and time of receipt.  any help would be greatly appreciated.
thanks.

Answer 1

I found the below script online but it does not seem to be naming correctly.  it appears that the month always defaults to 12.  perhaps somehow could suggest a fix?
set theAttachmentPath to (path to desktop) as text
tell application "Mail"
          set a to selection
end tell
repeat with s in a
          tell application "Mail"
                    set current_date to date received of s
                    set CurrentSender to sender of s
          end tell
          set current_date to AppleScriptDateToString(current_date)
          tell application "Mail" to set Attached to mail attachments of s
          repeat with ThisAttach in Attached
                    tell application "Mail" to set FileName to name of ThisAttach
                    if FileName ends with ".pdf" then
                              set FileName to current_date & " from " & CurrentSender & ".pdf" as text
                              set FileName to checknamewith_pdfsuffix(FileName, theAttachmentPath, false)
                              tell application "Mail" to save ThisAttach in theAttachmentPath & (FileName)
                    end if
          end repeat
end repeat
on AppleScriptDateToString(a)
          set b to current date
          set monthnames to {}
          repeat with i from 1 to 12
                    set month of b to i
                    set monthnames to monthnames & {(month of b) as text}
          end repeat
          set Y to (year of b)
          set M to 0
          repeat with t in monthnames
                    set M to M + 1
                    if t as text = (month of b) as text then
                              exit repeat
                    end if
          end repeat
          set M to Twodigits(M)
          set D to Twodigits(day of b)
          set hh to Twodigits(hours of b)
          set mm to (minutes of b)
          set ss to Twodigits(seconds of b)
          return Y & "-" & M & "-" & D as text
end AppleScriptDateToString
on Twodigits(a)
          return (characters -2 through -1 of (("0" & a) as text)) as text
end Twodigits
on checknamewith_pdfsuffix(n, D, looped)
          tell application "Finder"
                    set thefiles to name of every item of (D as alias)
          end tell
          if thefiles contains n then
                    if looped = false then
                              set n to ((characters 1 through -5 of n) & " 1" & (characters -4 through -1 of n)) as text
  checknamewith_pdfsuffix(n, D, true)
                    else
                              set tmp to (last word of ((characters 1 through -5 of n) as text) as integer)
                              set tmpcount to (count of characters of (tmp as text)) + 5
                              set tmp to tmp + 1
                              set n to ((characters 1 through (-1 * tmpcount) of n) & tmp & (characters -4 through -1 of n)) as text
  checknamewith_pdfsuffix(n, D, true)
                    end if
          else
                    return n
          end if
end checknamewith_pdfsuffix