You can easily done this by using Outlook as your mail program.
Set a reference to Outlook and put the code in a standard module
1) Go to the VBA editor, Alt -F11
2) Tools>References in the Menu bar
3) Place a Checkmark before Microsoft Outlook ? Object Library
? is the Outlook version number
5) Paste the code in the module below.
6) Alt q to close the editor
7) Save the file
SaveEmailAttachmentsToFolder “Folder name in your inbox”, “file extension”, “Drive path to store attachments”