서식있는 텍스트 상자가있는 이메일 본문을 보내시겠습니까?

Question

전체 서식으로 Richtextbox 콘텐츠를 보낼 수있는 코드가 필요합니다. 나는이 코드를 사용합니다

Dim sendera As String = My.Settings.Sendermail 
    Dim pass As String = My.Settings.Password 
    Dim smtpServer As New SmtpClient() 
    Dim mail As New MailMessage() 
    smtpServer.Credentials = New Net.NetworkCredential(sendera, pass) 
    smtpServer.Port = My.Settings.Port 
    smtpServer.Host = My.Settings.SMTP 
    smtpServer.EnableSsl = My.Settings.ESSL 
    mail = New MailMessage() 
    mail.From = New MailAddress(sendera) 
    mail.To.Add(TextBox1.Text) 
    mail.Subject = TextBox2.Text 
    mail.IsBodyHtml = True 
    mail.Body = RichTextBox1.Text 
    smtpServer.Send(mail) 

을하지만 센 이메일 보내기 경우는 일반 텍스트로 표시가 서식하지 않고 있어요 ??

Answer 1

mailbody.Text.Replace(" ", "%20").Replace(vbNewLine, "%0A") 
' %20 is url encoding for a space, %0A url encoding for new line 

이 시도 :
http://www.w3schools.com/tags/ref_urlencode.asp
행운