Using CDO.Message to email all files in a folder?

Hi,

I am very new to VBA but have managed with the power of google and searching forums like these to get my way through. I've reached an impasse though. I can finally finish my project if I can solve this last piece of the puzzle but I fear I may need to do it a harder way.

This part is fairly simple really, once a job has been completed the user supplies a job number and the macro needs to email all the contracts (that I produced with the major part of the project) from the relevant job directory. Can I supply a wildcard to do this? I tried *.xls but that failed.

Code I have in place:

Please Login or Register  to view this content.

Answered my own question. Sometimes it just best to keep on searching, I found this loop which lists the files in the directory and uses the names to define the attachments. Great!

Please Login or Register  to view this content.

Would still love to know if there is a wildcard in VBA though, is there?