Mail message attachment extensions missing, need to rename.


I’m having trouble with mail attachments that are sent with name extensions.

I don’t seem to be able to use the normal routines that read the extensions, but have had to resort to the crude

repeat with theAttachment in CycleThroughMessages's mail attachments
						set AName to "<" & theAttachment's name & ">"
						set theAttachmentNames to theAttachmentNames & AName & return
						set CountOftheAttachmentNames to CountOftheAttachmentNames + 1
						if "." is not in characters -6 thru -2 of AName then
							set AttachmentWarningCount to AttachmentWarningCount + 1
						end if
					end repeat

Does anyone know of a way of checking the extensions, and even better, resetting them if missing, even if its adding ‘ext’.?



Model: intel iMac
Browser: Safari 525.18
Operating System: Mac OS X (10.5)