Imports System.Web.Mail


Private Sub SendEmail()
Const SERVER As String = "relay-hosting.secureserver.net"
Dim oMail As MailMessage = New System.Web.Mail.MailMessage
oMail.From = "emailaddress@domainname"
oMail.To = "emailaddress@domainname"
oMail.Subject = "Test email subject"
oMail.BodyFormat = MailFormat.Html
' enumeration
oMail.Priority = MailPriority.High
' enumeration
oMail.Body = ("Sent at: " + DateTime.Now)
SmtpMail.SmtpServer = SERVER
 Try
  SmtpMail.Send(oMail)
 Catch
Result.text = "The mail couldn´t be sent !!"
 End Try
oMail = Nothing
' free up resources
End Sub