Outlook VBA save file as with a new name

Currently macro saves a file with its existing name into a folder ABC. Wish to change the file name to current date. Macro is run every day so in the folder ABC there should be a new file saved every day with date as it's name.

Current VBA code:
"Sub X (item As Outlook.MailItem)

Dim SaveFolder As String
Dim Y As Outlook.Attachment


SaveFolder = "D:\ABC"

For Each Y In item.Attachments

Y.SaveAsFile SaveFolder & "\" & Y.DisplayName
Set Y= Nothing
Next

End Sub"