'This sample uses the SautinSoft's RTF-to-HTML DLL .Net component

		'1. Start converting rtf to html
		Dim rtf As String = ByteToString(FileUpload1.FileBytes)

		Dim r As New SautinSoft.RtfToHtml()
		r.ImageStyle.IncludeImageInHtml = False
		Dim arListWithImages As New System.Collections.ArrayList()

		'2. After launching this method we'll get our RTF document in HTML format and list of all images in the Arraylist 'arListWithImages'
		Dim html As String = r.ConvertString(rtf, arListWithImages)

		'3. Create HTML email
		Dim [from] As String = "from@from.com"
		Dim [to] As String = "to@to.com"
		Dim subject As String = "Simple message"

		Dim emailMessage As New MailMessage()
		emailMessage.From = New MailAddress([from])
		emailMessage.To.Add([to])
		emailMessage.Subject = subject.Replace(vbCrLf, "")

		'4. Attach images to email
		Dim altView As System.Net.Mail.AlternateView = AlternateView.CreateAlternateViewFromString(html, Nothing, "text/html")
		For Each simg As SautinSoft.SautinImage In arListWithImages
			If simg.Img IsNot Nothing Then
				Dim lr As LinkedResource = Nothing
				Dim ms As New System.IO.MemoryStream()
				simg.Img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
				If ms IsNot Nothing AndAlso ms.Position > 0 Then
					ms.Position = 0
				End If
				lr = New LinkedResource(ms)
				lr.ContentId = simg.Cid.Replace("cid:", "")
				altView.LinkedResources.Add(lr)
			End If

		Next simg
		emailMessage.AlternateViews.Add(altView)

		'5. Send the message using email account
		Dim client As New SmtpClient("127.0.0.1")

		Dim credentials As New System.Net.NetworkCredential()
		client.Credentials = credentials
		client.UseDefaultCredentials = True
		client.Send(emailMessage)