Imports System.Net.Mail

'//e-mail client
        Dim mail As New MailMessage
        Dim client As New SmtpClient
        mail.From = New MailAddress("info@yourdomain.nl", "Name")
        mail.To.Add(New MailAddress(email, contact))
        mail.Subject = "Subject text"
        mail.IsBodyHtml = True
        mail.Body = ("Text: '" & Text & _
        "' <br> Text: '" & Text1 & "'")
        client.Host = "mail.yourdomain.nl"
        client.DeliveryMethod = SmtpDeliveryMethod.Network
        client.Send(mail)