利用.Net 中System.Net.Mail命名空间发送邮件。
Dim mailMsg As MailMessage = New MailMessage
mailMsg.From = New MailAddress("xxx1@qq.com")
mailMsg.To.Add("xxx2@qq.com")
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 用户可能为:username@gmail.com password
smtp.Credentials = New Net.NetworkCredential("xxx1@qq.com", "******")
smtp.Host = "smtp.exmail.qq.com"
smtp.EnableSsl = True
'smtp.DeliveryMethod = SmtpDeliveryMethod.Network
smtp.Port = 25
smtp.Send(mailMsg)
不知道为什么采用SSL加密方式发送,采用465端口发送超时?
其他资料:
http://blog.youkuaiyun.com/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