Dim message As New MailMessage("sender@address", _
                      "from@address", "Subject", "Message Text")
                    Dim emailClient As New SmtpClient("Email Server Name")
                    emailClient.Send(message)