- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 邮件发送 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115533)
-- 发布时间：2018/3/8 16:32:00
-- 邮件发送
按帮助中《使用QQ邮箱发送邮件》的说明，测试邮件发送，但没有成功，提示如下：
此主题相关图片如下：qq截图20180308162253.png
我现在电脑是企业局域哉，出外网需通过代理，邮件发送不成功是否跟代理服务有关？
-- 发布时间：2018/3/8 16:44:00
--
用这个能否发送？
Dim m As New MailSender
m.Host = "smtp.qq。com"
m.Account = "455189993@qq.com"
m.Password = "helen6849338."
m.From = "455189993@qq.com"
m.To = "765427475@qq.com"
m.Title = "李总明天来北京"
m.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.Send()
-- 发布时间：2018/3/8 16:46:00
--
用这个能否发送？
Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.qq.com"
client.Credentials = New System.Net.NetworkCredential("455189993@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = new System.Net.Mail.MailAddress("455189993@qq.com")
message.To.Add("765427475@qq.com")
message.Subject = "主题测试"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True
Dim body As String = "<html><body>内容</body></html>"
Dim content As String = "<table border=1><tr><td>第一列</td><td>第二列</td><td>第三列</td></tr><tr><td>1</td><td>2</td><td>3</td></tr><tr><td>aaa</td><td>bbb</td><td>ccc</td></tr></table>"
message.Body = body.Replace("内容", content)
client.Send(message)
-- 发布时间：2018/3/9 9:40:00
--
上面两个都不能成功发送，一样的错误提示
-- 发布时间：2018/3/9 9:58:00
--
上面两个都不能成功发送，一样的错误提示
这样说明你公司的网络有问题，不允许直接发送邮件的。
如果要设置代理发送邮件，参考
http://blog.csdn.net/turbocc/article/details/38257725
-- 发布时间：2018/3/9 10:03:00
--
不然就变通处理一下。你公司有没有电脑可以独立上外网的设备？如果有，就用此电脑发邮件，把需要发送的邮件发送到此电脑去。
-- 发布时间：2018/3/9 15:24:00
--
但我们平时是可以通过QQ发送邮件的
-- 发布时间：2018/3/9 17:04:00
--
但我们平时是可以通过QQ发送邮件的
那就是用代理的方式发送的。看5楼的做法，需要额外编写代码处理。（目前没有代理的测试环境，无法帮你测试，如果你要做，就学习一下）