新线程发邮件

Imports System.Net.Mail
Imports System.Threading

Partial Class _Default
    Inherits System.Web.UI.Page

    Dim jmail As New System.Net.Mail.SmtpClient

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim newthread As Thread
        newthread = New Thread(New ThreadStart(AddressOf sendmail))
        'jmail.Host = "smtp.163.com"
        'jmail.Port = "25"
        'jmail.Send("123456@qq.com", "69672187@qq.com", "你好", "我是")
        Response.Write("发送成功aaa")
        newthread.Start()

    End Sub
    Sub sendmail()
        Dim email As New System.Net.Mail.MailMessage
        email.To.Add("69672187@qq.com")
        email.From = New Net.Mail.MailAddress("wanjing@163.com", "你好", System.Text.Encoding.UTF8)
        email.Subject = "这里标题啊" ';//邮件标题
        email.SubjectEncoding = System.Text.Encoding.UTF8 ';//邮件标题编码
        email.Body = "这里是内容" ';//邮件内容
        email.BodyEncoding = System.Text.Encoding.UTF8 ';//邮件内容编码
        email.IsBodyHtml = False ';//是否是HTML邮件
        email.Priority = MailPriority.High ';//邮件优先级

        Dim client As New SmtpClient
        client.Credentials = New System.Net.NetworkCredential("logen_lin", "mm")
        client.Host = "smtp.sohu.com"
        Try

 

 

            client.Send(email)
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
End Class