Save outlook attachments via VBA

Question

I found this beautiful code on your site: https://learn.microsoft.com/en-us/office/vba/api/outlook.attachment.saveasfile

But it only saves the first attachment. How can I have it loop through and save all the attachments in case there is more than one attachment?