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:

Application.ScreenUpdating = False
    Application.ActivePrinter = "Adobe PDF on Ne04:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Application.ActivePrinter = "HP Officejet Pro 8500 A910 on Ne02:"

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?