Email Help

I am using the following code to automatically send an email on button click:
1 Try
2 Dim client As New SmtpClient()
3 client.Send(msg)
4 Catch ex As Exception
5 lblMessage.Text = "<em>Error Sending Email:</em> Please get a programmer. <br>" & ex.ToString
6 lblMessage.Visible = True
7 btnEmail.Enabled = True
8 Exit Sub
9
10 End Try

I have the following in web. ...