Sending a Single Worksheet by E-Mail

[Makster83]

I have created a worksheet containing a PivotTable report that I need to be able to send via e-mail.

I wrote some VBA code inside the worksheet titled "Rpt_Practice_Admin". It was taken from this website:
http://msdn.microsoft.com/en-us/library/bb268022.aspx

Scroll down to the section titled, "Sending a Single Worksheet by E-mail".


Here's a step-by-step account of what I did:

• Wrote the VBA Code
• Replaced the line ActiveSheet.Copy with Sheets("Rpt_Practice_Admin").Copy
• Compiled, then executed (ran) the code.
• A window appears on the screen reading:

"The following features cannot be saved in macro-free workbooks:

• VB project

To save a file with these features, click No, and then choose a macro-enabled file type in the File Type list.

To continue saving as a macro-free workbook, click Yes."

• Click "Yes".
• Another window appears reading:

"A program is trying to send an e-mail message on your behalf. If this is unexpected, click Deny and verify your antivirus software is up-to-date.


For more information about e-mail safety and how you might be able to avoid getting this warning, click Help."

• Click "Allow".
• The same window reappears with the same message.
• Click "Allow".
• The same window reappears one more time.
• Click "Allow".
• Signed into the e-mail account written inside the method .SendMail someone@somewhere.com, "This is the Subject line"
• Check the Inbox and the worksheet was nowhere to be seen.

Where did I make my mistakes?

Regards.