Macros to send email automatically

I was creating a spreadsheet (forms) to collect feedback and I put a button on called "submit" to get people submit the data...

The code is as follows:

Sub Button1_Click()

MsgBox "Survey Completed. Thanks a lot!"

ActiveWorkbook.Save

Application.Dialogs(xlDialogSendMail).Show

End Sub

In this way I can get the email program open automatically when people click the button.

But Can I actually modify the code somehow and get my email address filled and send the email out automatically?

Thanks, P