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

ここに、本文として電子メールで送信されるものがあります。

私の最初の列のヘッダー私の2番目の列のヘッダー4567オフィスサプライ4567インシデントレポートごとのROBごとのサービスの払い戻し4567サービス請求書の払い戻し＃** 4567オフィスサプライとゲータレード

ご覧のとおり、ラップされただけでフォーマットされていません...本文をテーブルとしてTXT形式にするか、テーブルとしてHTML形式にする方法を教えてください。

4

1 に答える 1

1

このCStr(XElement)関数は、要素の内容を返すだけです。使用する：

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