'create the mail message
Dim mail As New MailMessage()
'set the addresses
mail.From = New MailAddress("(e-mail address removed)")
mail.To.Add("(e-mail address removed)")
'set the content
mail.Subject = "This is an email"
mail.Body = "this is the body content of the email."
'send the message
Dim smtp As New SmtpClient("xx.xx.xx.xx")
'to authenticate we set the username and password properites on
the SmtpClient
smtp.Credentials = New
System.Net.NetworkCredential("(e-mail address removed)", "xxxxx")
smtp.Send(mail)