rename attachment

My scanner opens a new email with the scanned item ###.pdf as an attachment The attachment is only in the email not in a folder. I would like to rename the pdf to the same as subject line which results from running this macro, Any help will be appreciated. Sub ScanedForm()...