Attaching multiple files to an Outlook mail using Excel VBA

Hello,

I've got a small macro that does the following:

1. Save active sheet as PDF in a specified folder
2. Create new mail item in Outlook
3. Attach created sheet into new mail

Then, I'll view it, and send.

Now, I just need to tweak it a bit so that it'll search the specified folder for multiple .pdf files. The catch is that there will be lots of them, but each filename has a date on it. I need to attach just the ones that have the date I specify. For instance I want to attach all the PDF's that have today's date:

1. OT_Sheet 17-08-15.pdf [x]
2. OT_Graph 17-08-15.pdf [x]
3. Media 01-02-15.pdf
4. Media_Weekly 06-08-15.pdf
5. Montly_report 17-08-15.pdf [x]

How do I do that?

Here's the code I've got so far (the file names and paths are all bogus, obviously, as I'll be changing them to the real ones later on, these are just test locations/names):

Please Login or Register  to view this content.

Not sure if this will work, but, have you tried using Today() on your attachments line instead of Now()? Today just uses the date, Now uses the date AND time.

My bad, a bit more complex then the solution I provided. I'm not sure how to include files that have different names but the same date.

Hi lawrence24

You can try this...let me know of issues.

Please Login or Register  to view this content.