Hi, this is the code that I am using to send an email

Dim objMail As New MailMessage()
SmtpMail.SmtpServer = "sitemail"
SmtpMail.Send(txtFrom.Text, txtEmail.Text, "", txtBody.Text)

The error message is 'The transport failed to connect to the server'
Any ideas anyone? Thanks