1:Imports System.Net.Mail

   2: 

   3:'//e-mail client

   4:Dim mail As New MailMessage

   5:Dim client As New SmtpClient

   6:mail.From = New MailAddress("info@yourdomain.nl", "Name")

   7:mail.To.Add(New MailAddress(email, contact))

   8:mail.Subject = "Subject text"

   9:mail.IsBodyHtml = True

  10:mail.Body = ("Text: '" & Text & _

  11:"' <br> Text: '" & Text1 & "'")

  12:client.Host = "mail.yourdomain.nl"

  13:client.DeliveryMethod = SmtpDeliveryMethod.Network

  14:client.Send(mail)