Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim EmailMessage As MailMessage = New MailMessage
EmailMessage.From = New MailAddress("yr mail")
EmailMessage.To.Add("email to")
EmailMessage.Subject = TextBox1.Text
EmailMessage.Body = RichTextBox1.Text
EmailMessage.Priority = MailPriority.High
EmailMessage.IsBodyHtml = True
'TO AUTHENTICATE TO SEND TO THE OUTSIDE WORLD
Dim smtp As New SmtpClient("your smtp server")
Dim basicAuthenticationInfo As New System.Net.NetworkCredential("user name", "password")
smtp.Credentials = basicAuthenticationInfo
smtp.Send(EmailMessage)
End Sub
End Class