Vb.net 检索正确格式的文本

我想知道，如何在vb.net中按一下按钮，以定义的格式发送emial，并带有一些链接。 目前我的状态是：我创建了一个下拉列表，从sql加载一些代码的列表。 在sql中，我创建了一个表来维护代码和emailBody。现在，当我在下拉列表中选择一些代码并单击“按钮”时。我希望以与sql中相同的格式检索与代码关联的emailBody。目前，我可以检索电子邮件正文，但当我检查电子邮件时，它将作为段落发送。但是，尽管正在调试数据集，xml视图的格式是正确的

以及如何在sql中添加文本链接？

Dim客户端作为SmtpClient
将电子邮件设置为新的SmtpMail（“”）
Dim服务器作为新的SmtpServer（“”）
Email.From=“”
Email.To=“”
Email.Subject=“”
Email.HtmlBody=“”
Email.User=“”
Email.Password=“”
如果服务器SSL
SmtpMail.ConnectType=SmtpConnectType.ConnectSSLAuto
client.SendMail（服务器、电子邮件）

---

您还可以插入一些动态变量。

您能给我们看一下相关的代码部分吗？你所说的链接是什么意思？你是说像

http://mysite.com/Index.html

？电子邮件正文文本具有类似“查看我的网站”的超链接。此电子邮件来自sql server当您说“此电子邮件来自sql server”是什么意思？你是说电子邮件正文吗？它以何种格式存储在您的数据库中？RTF、XML、纯文本还是其他？向我们展示您用于创建和发送电子邮件的代码。我已经插入到表中，如下所示：我已经插入到表中，如下所示：插入到emiatable（code，emialbody）值（'At4'，'这是电子邮件的巨大文本，大约15行，将成为电子邮件的正文，我确实在其中有一些超链接'）。我认为这是普通的纯文本。我正在从数据集DS.table（0）.rows（0）.item（“emialbody”）中检索并分配给string。将此字符串传递给smtp邮件

    Dim client as SmtpClient
    Dim Email As New SmtpMail("")
    Dim Server As New SmtpServer("")
    Email.From = ""
    Email.To = ""
    Email.Subject = ""
    Email.HtmlBody = "<a href="www.website.com">Text</a>"
    Email.User = ""
    Email.Password = ""

    If server SSL
    SmtpMail.ConnectType = SmtpConnectType.ConnectSSLAuto

    client.SendMail(Server, EMail)