Macro to send a pdf attachment via outlook from excel

I've done a search on this which has resulted in a lot of complex code. I have a very simple code I use to create a PDF of a page and then switch back to my normal printer which is as follows:

Please Login or Register  to view this content.

All I need is an equally simple code (if possible) to add that will attach the PDF that is created from the code above to an outlook e-mail and automatically send it (same person every time, same subject line and body copy every time).

What's the simplest way to do this?

I think this was taken from the internet someplace. Its the code behind out help tickets at work.

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.