Save workbook, attach it to outlook email, close workbook?

I have a macro which I call from other macros, which saves the workbook with a new name based on the content of 2 cells in the active sheet, and then closes the newly saved workbook.

I need to add a code that will attach the newly saved file to a new outlook email. The email doesn't need the addressee populated, but it would be cool if it populated the subject with the same name as the saved file (minus the file extension). Then close the workbook, but leave the email up and ready for the user to fill in the address and body and send it manually.

Please Login or Register  to view this content.

I've seen a number of discussions on variants of this online, but I couldn't figure out how to adapt it to this.

Here is a great example by www.Rondebruin.nl

Please Login or Register  to view this content.

Can you adapt this to your needs?

I've seen that stuff around, but don't know enough to adapt it.

Place this code in a module in your workbook and run the macro with Outlook open.

Please Login or Register  to view this content.

I did. It gave me a Compile Error: Syntax error.

I thought it would be just a few lines of code added after the file is saved. That subscript you posted looks like it adds prepopulated text for the body and all kinds of stuff I don't need and also won't know how to chop out of there. Which lines do I need to simply attach the newly saved workbook as an attachment to a new Outlook email? I have no idea.

There is several ways you can perform this, but none of them are just a few lines of code to get this done. If you have a workbook containing macros, do you want to email a copy of the workbook without macros? If so, you can add the code to your "Master Workbook" and then email copies with no code attached like this. This is very similar to the code you have, just modify it.

Please Login or Register  to view this content.

Then call the email macro:

Please Login or Register  to view this content.

You could have two modules to perform this task. If you are unable to perform any of this, you might have to post your workbook and I can add this for you to make it work.

I figured it out.

Please Login or Register  to view this content.

Thanks though.