Question

在将文本从一个多行文本区域复制到另一个文本区域，然后通过电子邮件发送所述文本时，我遇到了保留换行符的问题。

在打开Outlook电子邮件之前，换行符看起来很好。右键点击并查看来源＆＃39;在电子邮件中，文本格式正确。

相关代码：

Dim sb As New StringBuilder
Dim linebreak = vbCrLf
sb.Append("some data"& linebreak & linebreak)
sb.Append("more data" & linebreak & linebreak)
txtData.Text = sb.ToString()

'Textbox html
 <asp:TextBox ID="txtCustInfo" TextMode="MultiLine" runat="server" Height="300px" Width="265px"></asp:TextBox>

这是我将上述内容粘贴到的文本框：

<asp:TextBox ID="txtDescription" runat="server" Rows="6" TextMode="MultiLine" Width="500px"></asp:TextBox>

然后将其发送到Outlook电子邮件

Public Sub SendRequest(ByVal message As String, Optional ByVal SendToEmailAddress As String = "", Optional ByVal AddToSubjectLine As String = "", Optional ByVal attachment As String = "")

    Dim msg As New EmailMessage
    msg.Body = message

    'Send message

End Sub

以前有人经历过吗？感谢。

Answer 1

这是一个可能的解决方案：

Public Sub SendRequest(ByVal message As String, Optional ByVal SendToEmailAddress As String = "", Optional ByVal AddToSubjectLine As String = "", Optional ByVal attachment As String = "")

    Dim msg As New EmailMessage
    msg.Body = message
    msg.BodyFormat = MailFormat.Html; 'set the MailFormat
    'Send message

End Sub

如果这对您有用，请告诉我。我使用Outlook MailMessage已经体验过类似的东西。

换行符不会粘贴到多行文本框中

1 个答案: