使用.net发送邮件

来源：互联网发布：cab软件下载专区编辑：程序博客网时间：2024/05/23 00:01

Imports System.Net.Mail
Imports jmail

    Private Sub SetMail()
        Dim m As New MailMessage("billchin@126.com", "13719073283@139.com")
        'Dim ms As MailAddress = New MailAddress("billchin@126.com", "密码", System.Text.Encoding.Unicode)
        'm.From = ms
        m.Subject = "中国" & GetTime()
        m.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

m.Body = m.Subject
m.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

        Dim sc As New SmtpClient
        sc.Host = "smtp.126.com"
        sc.UseDefaultCredentials = True
        sc.Credentials = New System.Net.NetworkCredential("billchin", "密码")
        sc.DeliveryMethod = SmtpDeliveryMethod.Network
        sc.Timeout = 60000
        Try
            sc.Send(m)
            WriteFile("发送成功")
        Catch ex As Exception
            WriteFile(ex.Message)
        Finally
            m.Dispose()
        End Try

End Sub