Loop through files in folder, email file to listed recipient of file name = cell value

Hi everyone,

I have a number of files in a single folder. Each of these files must be emailed to unique recipients.

In my VBA workbook, sheet DataSheet, column P has the file names (without extension), column Q is the To field, and column R is the CC field.

What I'm trying to do is have a macro which will open file explorer, the user will identify the folder the files are located in, and then loop through each file in the folder. If the file name matches a value in column P, then outlook will send an email with the same file attached to the recipients listed in column Q and R. Below is what I have so far, but I keep getting an error on the Attach.add line.

Please Login or Register  to view this content.

Any ideas?

Thanks!!!

Perfect. Thank you.