Copy 2 Sheets in Workbook Attach to Email

[wherdzik]

Looking for help as I am getting errors with this one. I want to take two sheets that are in a giant workbook and take a copy of them and attach them to an email. Each month I have to attach these sheets.
I would like to copy them as they are, meaning no values, One sheet contains a pivot table and the other summarizes the data. I used this code but it doesnt work.

I am getting an error on this line:
Set OutApp = CreateObject("Outlook.Application")

Run-time error '429'
ActiveX Component Cant create object.

If you require additional information please ask.

Please Login or Register  to view this content.

[Artik]

Could it be that MS Outlook is not installed on the computer?

Artik

[wherdzik]

It is installed, I have used other code with outlook and no issues.

[Artik]

It's a little strange, because the presented code looks correct.
See if the following code change makes a difference.

Instead of line:

Please Login or Register  to view this content.

type:

Please Login or Register  to view this content.

and additionally function:

Please Login or Register  to view this content.

Artik

[wherdzik]

Artik, I found the issue. My organization was blocking the vba code because of security concerns. I saw in Windows event viewer that this was getting stopped repeatedly.
So you are correct the code is probably fine I just need to have IT fix this.

Thank you.