將Gridview附加到電子郵件正文VB.NET

Question

我目前正在以編程方式在我的網頁中發送電子郵件，這些電子郵件可以正常工作，但我也想將gridview附加到電子郵件正文中。

這是到目前為止我用於發送電子郵件的VB代碼...

Dim Uname As String = Page.User.Identity.Name.Substring(Page.User.Identity.Name.IndexOf("\") + 1)
            strFm = Uname + "@Inscapepeople.co.uk"
            If strTo <> "" Then
                Dim insMail As New System.Net.Mail.MailMessage(New MailAddress(strFm), New MailAddress(strTo))
                With insMail
                    For Each y As String In strToREST.Split(";")
                        If y = "" Then
                        Else
                            .CC.Add(y)
                        End If
                    Next
                    .Subject = subject
                    .Body = Greet + "<br />" + "<br />" + bodyTxt.Text + "<br />" + PName + "- " + PNum + "<br />" + "<br />" + "The Required Date was: " + ReqDateNow.Text + " ,The Required Date is now: " + ReqDateAfter.Text + "<br />" + "Regards," + "<br />" + "<br />"
                    .IsBodyHtml = True
                    Sig = Uname
                    If Sig.ToLower = "djones" Then Sig = "GBennett"
                    Dim source As String = Path + Sig + ".jpg"
                    If System.IO.File.Exists(source) = False Then
                        Msgbox.ShowAlertMessage("Signature not found, but the email was still sent.")
                    Else
                        Dim lr As New LinkedResource(source)
                        lr.ContentId = "Signature"
                        Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString(insMail.Body + "<img width=""500"" height=""400"" src=cid:Signature>", Nothing, "text/html")
                        htmlView.LinkedResources.Add(lr)
                        .AlternateViews.Add(htmlView)
                    End If
                End With
                Dim smtp As New System.Net.Mail.SmtpClient
                smtp.EnableSsl = False
                smtp.Host = "192.168.50.2"
                smtp.Port = 25
                smtp.UseDefaultCredentials = True
                smtp.Send(insMail)

我已經在網上搜索過，找不到任何幫助我的東西，我想知道是否可以得到一些幫助，在此先感謝您。

任何幫助將不勝感激。

Answer 1

我建議使用以下功能將gridview轉換為HTML：

Private Function GridViewToHtml(ByVal gv As GridView) As String
    Dim sb As New StringBuilder
    Dim sw As New StringWriter
    Dim hw As New HtmlTextWriter(sw)
    gv.RenderControl(hw)
    Return sb.ToString()
End Function

然后，您可以調用此函數並將其添加到電子郵件正文中。