Failure Sending Mail - Contact Form

Afternoon all!


I have a web page that contains a very simple contact form.. now behind this I have a private sub which is listed below...
As far as im aware this code should work but im getting a error when it tries to send the message?


I cannot for the life of me think what im doing wrong?




Private Sub SendMail(ByVal from As String, ByVal body As String)


        Dim mailSeverName As String = "mail.1and1.co.uk"
        Dim message As MailMessage = New MailMessage(TextBoxEmail.Text, "rudie@tdonkingdesigns.co.uk", TextBoxName.Text, TextBoxEnquiry.Text)
        Dim mailClient As SmtpClient = New SmtpClient




        mailClient.Host = mailSeverName
        mailClient.Send(message)
   &n ...