格式化电子邮件中的数据集结果

我有一个程序，它在加载时会加载带有查询信息的数据集。然后我将信息发送到电子邮件中。除了输出之外，其他一切都正常工作。输出是换行的，而不是表格式。如果我调试程序并将"Payouts"的"Value"粘贴到txt文档中，并将其保存为html文件，则它的格式是正确的（以表格形式显示）。这是我的代码：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            Me.Paid_Out_TbTableAdapter.Fill(Me.DataDeliveryServiceDataSet.Paid_Out_Tb)
            Dim payouts = _
            <html>
                <body>
                    <table>
                        <tr><th>My First Column Header</th><th>My Second Column Header</th></tr>
                        <%= From paidOut In Me.DataDeliveryServiceDataSet.Paid_Out_Tb.AsEnumerable _
                            Select <tr><td><%= paidOut.Store_Id %></td><td><%= paidOut.Paid_Out_Comment %></td></tr> %>
                    </table>
                </body>
            </html>
            SmtpServer.Credentials = New  _
            Net.NetworkCredential("****", "****")
            SmtpServer.Port = 25
            SmtpServer.Host = "*****"
            mail = New MailMessage()
            mail.From = New MailAddress("*@*.com")
            mail.To.Add("*@*.com")
            mail.Subject = "Test Mail"
            mail.IsBodyHtml = True
            mail.Body = payouts
            SmtpServer.Send(mail)
            MsgBox("mail send")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
End Sub

以下是作为正文在电子邮件中发送的内容：

我的第一列标题我的第二列标题4567OFFICE SUPPLIES4567每个ROB每个事件的服务退款报告4567服务发票退款#**4567OFFICESUPPLIES AND GATORADE

正如你所看到的，它只是被包装而没有格式化。。。如何使正文以TXT格式作为表，或以HTML格式作为表。

CStr(XElement)函数只返回元素的内容。用途：

mail.body=payouts.ToString()

相关内容

最新更新

热门标签：