Filter Pivot table by each customer and auto email invoices unpaid

[sampal]

Attached file.

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

It gives an error

Does not work, it gives error when reaching line

ActiveWorkbook.EnvelopeVisible = True

" Method mail envelope of object _worksheet failed"

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 ,

[p45cal]

See if there's anything here which might explain why things could be going wong:
http://www.rondebruin.nl/win/s1/outlook/bmail3.htm