VBA to send email with outlook

Paste the following into a routine module. This macro saves the ACTIVE SHEET as a separate workbook, attaches to an email that is created.

Please Login or Register  to view this content.

Hi Logit!!

Thanks for your message!!

The code is perfect!

I would like to ask two questions if possible:
-would it be possible to amend the code so as rather than the activesheet I can specify which sheet I want to be sent
-also the code stops at attaching the email. Would it be possible to have the email sent?

Thanks a lot !!

Keibri

.
To have the email autosend without first seeing it ... change .Display to .Send

Re: Which sheet to attach ... will the sheet always be the same (i.e., Sheet1 or Sheet2, etc?) ... or will the sheet possibly change from time to time ?

Hi Logit thanks for that!!

The sheet will always be the same! !

.
Since the sheet will always be the same, create the command button on the sheet you want to attach to the email and it will always send that sheet only.

Great!! Thanks a lot for your help!

You are welcome.

Thanks man. Just in case, don't know if it's a big inconvenience. If I have to launch the macro from a different sheet then the sheet I want to send. Could this be done please?! thanks a lot!

.
These two macros were created in ThisWorkbook :

Please Login or Register  to view this content.

This macro was created in a routine module :

Please Login or Register  to view this content.

Then a UserForm was created and this code was placed in the UserForm :

Please Login or Register  to view this content.

With this version, whenever you want to email a specific worksheet, first display that sheet ... then press the "m" key (lower case). The userform will show, display the activesheet you are viewing. Click the EMAIL button and voila !
Close the form when you are finished.

This method will allow you to move to any sheet in the workbook and not have to place a command button on each sheet (very inconvenient).

Project attached for review.

.
Hello keibri :

If you want to send the email regardless of where you are in the workbook ...

Paste this in the ThisWorkbook module :

Please Login or Register  to view this content.

Paste this into a Routine Module :

Please Login or Register  to view this content.

When you want to send the email, press the " m " key.