发送VB.NET后,电子邮件不保持格式

时间:2017-11-20 18:12:30

标签: vb.net email text richtextbox text-formatting

我正在使用EASendmail发送电子邮件。电子邮件正文是一个丰富的文本框。如果我进行格式化,例如一行低于另一行并发送电子邮件,电子邮件丢失了它的格式。例如,如果输入以下内容:

Hello,
How are you ?

在富文本框中发送,然后变为:

Hello,How are you

如何维护文本格式?还有一件事,如果我将任何图像添加到我的富文本框中,则电子邮件正文不会保留图像。我的意思是,接收者只接收电子邮件正文的文本,而不是图像。如何解决这些问题?

我发送电子邮件的代码是:

 Dim oMail As New SmtpMail("TryIt")
 Dim oSmtp As New EASendMail.SmtpClient()
 oMail.From = fromtxt.Text
 oMail.To = New AddressCollection(totxt.Text)
 oMail.Subject = subjecttxt.Text
 oMail.HtmlBody = bodytxt.Text
 Dim oServer As New SmtpServer(MailConfig.host.Text)
 oServer.Port = MailConfig.port.Text
 oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
 oServer.User = fromtxt.Text
 oServer.Password = MailConfig.password.Text
 oSmtp.SendMail(oServer, oMail)

修改

我甚至尝试过:

  oMail.HtmlBody = "<html><body>" + bodytxt.Text + "</body></html>"

但没有结果

1 个答案:

答案 0 :(得分:2)

这是一个简单的解决方法。 我所要做的就是将我的RTF转换为HTML,然后发送它.. RTF-TO-HTML-CONVERTER

下载项目文件后,必须将引用添加到bin文件夹中的.dll文件中。然后:

getSuggestedMinimumWidth()