Locate the line
and change it tostrFileName = olItem.Subject
strFileName = olItem.Subject & Format(olItem.ReceivedTime, " yyyymmdd")
Locate the line
and change it tostrFileName = olItem.Subject
strFileName = olItem.Subject & Format(olItem.ReceivedTime, " yyyymmdd")
Graham Mayor - MS MVP (Word) 2002-2019
Visit my web site for more programming tips and ready made processes
http://www.gmayor.com