How to get outlook email attachment using excel vba and save it in a specified folder

Hello, I am currently using the code below to save a file and send an email with a link to the file on our server. What I would also like to do is before the email is sent, look through outlook folders and find an attachment based on a range value in the worksheet. When it finds the attachment I would like to transfer it into the same folder that we are saving the current file into. This project is the first time that I have tried to do anything with outlook from excel so I am having trouble figuring out how to make this work.

Please Login or Register  to view this content.

Ok, I was able to come up with the following code which works "mostly", it did find the file in the inbox but not in any subfolders. I thought that the Inbox would include all subfolders as well but it looks like it will not. I need to be able to check in subfolders in case whoever is using this code has rules and subfolders where the attachment will be.

Please Login or Register  to view this content.

So I have been working on this and was able to come up with the following code. It searches through the inbox and then through the subfolders. If anyone has a better or faster way that would be great. Next thing I want to do is find a way to search a specific folder, I think it would be better to run the code faster that way.

Please Login or Register  to view this content.

Does anyone have an idea of how I can search outlook subfolders for a specific folder then find the attachment. If the subfolder does not exist I want to then look for the attachment in the inbox and all subfolders.