vb.net - 发送带有富文本框的电子邮件正文？

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 祝你好运