VBA - To save attachment from email to folder

hi,

I want to find the way to save emails from outlook to specific location in drive which varies by month.

My intension is to save the file directly to folders (that existed) by months (if the email received on Dec, it will saved directly to Dec folder) rather than one specific folder.

Current code

Public Sub Save1(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\narindran\Documents\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub


Appreciate for your help.