0

使用 vb.net .bind 数据集值到 gridview。并使用 vb.net 中的 smtpclient 将此 gridview 发送到 Outlook。能够在gridview控件中绑定数据。当我调用 sendmail 函数时，它在代码中显示类似上面的错误。

GridView 设计代码

<asp:GridView ID="gdv2" runat ="server" width="100%" autogeneratedcolumn="false">
 <columns>
 <asp:BoundField HeaderText="TRREQNO" DataField="TRREQNO" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="From" DataField="ename" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Departure Date" DataField="departuredate" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Return Date" DataField="returndate" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Passport" DataField="havepassport" ItemStyle-Width="50"/>
  <asp:BoundField HeaderText="Passport Number" DataField="passportnumber" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Travel Type" DataField="traveltype" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Additional Passengers" DataField="noofcopassenger" ItemStyle-Width="50"/>
 </columns>
</asp:gridview>

文件 .aspx.vb 后面的代码

 Dim ds_get As New TR_REQTableAdapters.proc_bindingridTableAdapter
 Dim dt_get As TR_REQ.proc_bindingridDataTable = ds_get.GetData(s1)
 gdv2.datasource = dt_get
 gdv2.databind()

  SendHTMLMail()

Public Sub SendHTMLMail()
    Dim Msg As New MailMessage()
    Dim fromMail As New MailAddress("xxx")
    ' Sender e-mail address.
    Msg.From = fromMail
    ' Recipient e-mail address.
    Msg.[To].Add(New MailAddress("xxx"))
    ' Subject of e-mail
    Msg.Subject = "Send Gridivew in EMail"
    Msg.Body += "Please check below data <br/><br/>"
    Msg.Body += GetGridviewData(gdv2)
    Msg.IsBodyHtml = True
    Dim sSmtpServer As String = ""
    sSmtpServer = "10.200.4.59"
    Dim a As New SmtpClient()
    a.Host = sSmtpServer
    a.EnableSsl = True
    a.Send(Msg)
End Sub

Public Function GetGridviewData(ByVal gv As GridView) As String
    Dim strBuilder As New StringBuilder()
    Dim strWriter As New StringWriter(strBuilder)
    Dim htw As New HtmlTextWriter(strWriter)
    gv.RenderControl(htw)
    Return strBuilder.ToString()
End Function

第 4 行的最后一个函数我得到了上面提到的错误。怎么解决？

4

0 回答 0