Email Datagrid as mailbody

下面例子將Datagrid當Email內容寄送:

Dim objMail As New MailMessage
objMail.BodyEncoding = Encoding.UTF8
objMail.Subject = "Email Subject"
objMail.From = "email@address"
SmtpMail.SmtpServer = "xxx.xxx.xxx.xxx"
objMail.BodyFormat = MailFormat.Html
objMail.To = "email@address"
Dim sw As New System.IO.StringWriter
Dim hw As New System.Web.UI.HtmlTextWriter(sw)
load_grid() ' bind data to Datagrid_mail
Datagrid_mail.Visible = True
Datagrid_mail.RenderControl(hw)
objMail.Body = "Hello:" + "<br>" + "<br>" + sw.ToString()
Datagrid_mail.Visible = False
Try
SmtpMail.Send(objMail)
Catch ex As Exception
lblDBErrorMessage.Text = "Error!"
End Try