1

完全なフォーマットで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)

しかし、私が電子メールを感知すると、フォーマットなしのプレーンテキストとして表示されますか？

4

1 に答える 1

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 頑張ってください

于 2012-06-16T07:50:23.667 に答える