I got it working. I changed this line in the code.


sDate = Format$(oMail.ReceivedTime, "Short Date")

to this

sDate = Format$(oMail.ReceivedTime, "m-dd")

Now when I run it, it will create the folder with todays date and then copy the mail into it.

Thanks for all of your help on this.