?
我们一般以前在接收邮件时有的邮件内容是整个页面,这个是怎么做到的呢?今天在csdn上看到一篇文章,想实现将datagrid控件的内容发送到对方邮箱中,我想,最简单的方法就是将这个datagrid控件的页面内容直接发送到对方邮箱中去就可以了(以前我测试的时候发送的速度还是很快的)
下面是我以前写的代码:
Imports System.Web.Mail
?Private Function HttpContent(ByVal url As String) As String
??????? Dim objRequest As WebRequest = System.Net.HttpWebRequest.Create(url)
??????? Dim sr As New StreamReader(objRequest.GetResponse().GetResponseStream(),system.Text.Encoding.Default )
??????? Dim result As String = sr.ReadToEnd()
??????? sr.Close()
??????? Return result
??? End Function
??? Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
??????? '在此处放置初始化页的用户代码
??? End Sub
??? Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
??????? Dim mailobj As New MailMessage
??????? mailobj.Subject = "南方电网.net论坛"
??????? mailobj.From = TextBox2.Text '发信人email
??????? mailobj.To = TextBox1.Text '收信人
??????? mailobj.Priority = MailPriority.High
??????? mailobj.Body = HttpContent("http://www.flycatch.com")
??????? mailobj.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
??????? mailobj.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", 121432147@qq.com) 'set your username here
??????? mailobj.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "*****") 'set your password here
??????? mailobj.BodyFormat = MailFormat.Html
??????? SmtpMail.SmtpServer = "服务器地址"
??????? SmtpMail.Send(mailobj)
??????? Response.Write("