Originariamente inviato da Dom4784
'set the content
mail.Subject = info(2)
mail.Body = BodyContent.Text
mail.IsBodyHtml = True
'send the message
Dim smtp As New SmtpClient("smtp")
smtp.Send(mail)