Filter Pivot table by each customer and auto email invoices unpaid

Attached file.

after you step into the macros. once it filters invoices unpaid by the first customer, in the pivot.

It gives an error

I was not able to resolve this.

anyone able to help me run this code please.

Objective of this macro is automate: filter on pivot for each customer, that shows invoices unpaid. then email it to the customer..and so on for each customer

thanks

It gives error - Method mail envelope of object _worksheet failed

when it reaches this line - With r.Parent.MailEnvelope.Item
thanks

Any luck people? please help. sorry to bump this..

.
I added " Sheets("Pivot"). " as indicated below and it sends emails here ...

Please Login or Register  to view this content.

Does not work, it gives error when reaching line

ActiveWorkbook.EnvelopeVisible = True

" Method mail envelope of object _worksheet failed"

.
???

I can't recreate the same error you are seeing there. When I ran your macro as is, I received an error on the indicated line.
Added the sheet name and it works here.

Not certain what is happening on your end to correct the error you are seeing.

I am so sorry ....

Many thanks, are u saying you are able to email from outlook. at my end this macro fails when it reaches this line.With r.Parent.MailEnvelope.Item

.
Yes, it works as desired here.