我们一般以前在接收邮件时有的邮件内容是整个页面,这个是怎么做到的呢?今天在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 = "浙江省丽水市新丽日用制品有限公司"
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/c ... mtpauthenticate", "1") 'basic authentication
mailobj.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "zc@e0578.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("<script>alert('发送成功')</" & "script>")
End Sub
浙公网安备 33010602011771号