Question

我有一个程序在加载时将使用查询中的信息加载数据集。然后我通过电子邮件发送信息。除输出外，一切正常。输出是包装的，而不是表格格式。如果我调试程序并将“支付”的“值”粘贴到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服务每个事件报告的服务报告4567服务发票的退款＃ * * 4567OFFICE SUPPLIES和GATORADE

正如你所看到的那样，它只是被包装而不是格式化......我怎样才能将主体以TXT格式作为表格，或者以HTML格式作为表格。

Answer 1

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

mail.body=payouts.ToString()

格式化数据集导致电子邮件

1 个答案: