我们一般以前在接收邮件时有的邮件内容是整个页面,这个是怎么做到的呢?今天在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