VBA to add attachments when sending emails.

Hi Jeff,
Thanks for the response!
I've updated to version 2310.
As of now I am not sending additional invoices, I only use this code to send emails with one invoice attached, the rest I do by hand.
I dont know how to write code or anything, I just tweaked this code slightly from a YouTube video.

Id like to be able to attach as little or as many invoices and send them all at once.

Below attachments should be included in every single email regardless of the amount of invoices as they are payment methods.

Attachments.Add "C:\Users\yshriki\OneDrive - GLSC & Company\Desktop\Invoices\Credit_Card_Authorization_Form_!.pdf"
Attachments.Add "C:\Users\yshriki\OneDrive - GLSC & Company\Desktop\Invoices\Wire Transfer Instructions.pdf"

I have one column(D) labeled file where I attach the invoice pdf, Id like to have multiple columns file 2(E), file 3(F), file 4(G) etc where i can upload more invoices that need to be attached.

The problem is when I add code to attach from these columns it does not run because some cells in those columns are empty. I dont know how to write code that could resolve this.

Sincerely,

Hey Jeff, Thank you for taking time to edit the code!

I just tested this and unfortunately it gave me an error.

.Attachments.Add "C:\Users\yshriki\OneDrive - GLSC & Company\Desktop\Invoices" & ThisWorkbook.Sheets("Client_Data").Cells(introw, Col)

This portion was highlighted as an error that I need to debug. The error reads "the remote server machine does not exist or is unavailable" run time error "462"

The code did send my first email(row 2) but it only contained one attachment on column D, the next row(3) has 2 attachments column D and E, row 4 has 3 attachments column D,E,F and lastly row 4 has attachments on column D,E,F,G.

to explain my set up, column A has the client ID name, column B has the email ID, Column C has the amount owed, and the rest of the columns are for each invoice per client.

I also had another question, is it possible to list multiple emails in Column B, in case I want to send the email to 3 people at once for example?


I hope I'm not a bother, I really do appreciate all the help. Thank you.

thank you for catching my error.
yes i would like the option to add more than one email in the same cell, and in a separate column have the option top add an email as a CC.

SIncerely,

i still have an error with this line.. not sure why.

.Attachments.Add "C:\Users\yshriki\OneDrive - GLSC & Company\Desktop\Invoices" & ThisWorkbook.Sheets("Client_Data").Cells(introw, Col)