Button - Send email

[Wiets]

This is my first post on this forum and my first time working with Excel.
I need help with an email macro to do the following;

The spreadsheet is where customers can order certain goods,
The customer data is contained on Sheet2:B1..H67 - there are also vlookup functions within these cells,
I would like the customer to click a button called "Send Order by Email" and the order (Sheet2:B1..H67) emailed to sales@company.com,
It does not matter whether the order is emailed as an attachment, as data within the email itself or in another format.
The recipient of this email order must simply be able to print the order - directly from Outlook email software or from within Excel.

Your help will be greatly appreciated.

[shasur]

Here is a hint

Sub Send_CurrentWorkBook()

Dim oWB As Workbook

Set oWB = ActiveWorkbook

' Save the Workbook if it is not
If oWB.Saved = False Then oWB.Save

oWB.SendMail "sales@company.com"

End Sub

The above will send the activeworkbook over mail. You can call the above code in Button_Click event

[Wiets]

Here is a hint

The above will send the activeworkbook over mail. You can call the above code in Button_Click event

Thank you, it works perfectly!