Save mail attachments after pre-pending YYYY-MM-DD_

prepend_and_save.scpt

set outputPath to choose folder

tell application "Mail"
	set curMessage to selection
	set listAttachments to mail attachment of item 1 of curMessage
	set curMessageDate to date received of item 1 of curMessage
	set dateStr to (rich text -4 thru -1 of ("0000" & (year of curMessageDate))) & "-" & ¬
		(rich text -2 thru -1 of ("00" & ((month of curMessageDate) as integer))) & "-" & ¬
		(rich text -2 thru -1 of ("00" & (day of curMessageDate)))
	repeat with a from 1 to length of listAttachments
		set curAttachment to item a of listAttachments
		set curSavePath to (outputPath as string) & (dateStr & "_" & (name of curAttachment))
		save curAttachment in curSavePath
	end repeat
end tell