System.Net.Mail发送邮件

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/weiwei_c/article/details/50526601

利用.Net 中System.Net.Mail命名空间发送邮件。

        Dim mailMsg As MailMessage = New MailMessage
        mailMsg.From = New MailAddress("[email protected]")
        mailMsg.To.Add("[email protected]")

        mailMsg.Subject = "Mail Send Test"
        mailMsg.Body = "This is a Test Mail." & vbCrLf & Now

        mailMsg.BodyEncoding = System.Text.Encoding.UTF8
        mailMsg.IsBodyHtml = True
        mailMsg.Priority = MailPriority.High

        Dim smtp As SmtpClient = New SmtpClient
        ' 提供身份验证的用户名和密码 
        '网易邮件用户可能为：username password 
        'Gmail 用户可能为：[email protected] password 
        smtp.Credentials = New Net.NetworkCredential("[email protected]", "******")
        smtp.Host = "smtp.exmail.qq.com"
        smtp.EnableSsl = True
        'smtp.DeliveryMethod = SmtpDeliveryMethod.Network

        smtp.Port = 25
        smtp.Send(mailMsg)

不知道为什么采用SSL加密方式发送，采用465端口发送超时？

其他资料：

http://blog.csdn.net/wind_324/article/details/8106218

https://msdn.microsoft.com/zh-cn/library/system.net.mail.mailmessage(VS.80).aspx

https://msdn.microsoft.com/zh-cn/library/system.net.mail.smtpclient(v=vs.80).aspx