1

我有一个程序，在加载时将使用来自查询的信息加载数据集。然后我通过电子邮件发送信息。除输出外，一切正常。输出被包装而不是表格格式。如果我调试程序并将“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

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

我的第一列标题我的第二列标题4567办公用品4567按事故报告为每个 ROB 提供服务的报销4567服务发票退款# * *4567办公用品和佳得乐

正如您所看到的，它只是被包装而不是格式化......我怎样才能让正文以 TXT 格式作为表格，或以 HTML 格式作为表格。

4

1 回答 1

1

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

mail.body=payouts.ToString()
于 2012-07-17T03:03:18.823 回答