This should create the folder as a subfolder of the inbox - replace
Set objDestFolder = objSourceFolder.Folders("Old")
with it
Code:
On Error Resume Next
strDate = Format(Date, "mmm dd yyyy")
Set objDestFolder = objSourceFolder.Folders(strDate )
If objDestFolder Is Nothing Then
Set objDestFolder = objSourceFolder.Folders.Add(strDate )
End If
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.