- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 同样的程序部分电脑无法发送邮件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110676)
-- 发布时间：2017/12/7 13:33:00
-- 同样的程序部分电脑无法发送邮件
大多数电脑能发送邮件, 部分电脑无法发送
\'发送邮件 开头
Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.qq.com"
client.Credentials = New System.Net.NetworkCredential("XXX", "XXX")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = new System.Net.Mail.MailAddress("XXX")
\'发送邮件 开头结束
message.To.Add("Lidezhi@atmet.cn")
\'下面是发送邮件代码 ----------------------分为新建任务和进度跟踪
Message.Subject = "【更新了任务记录: "
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True
Dim sb As New StringBuilder
sb.AppendLine("<html><body>")
sb.AppendLine("测试邮件")
sb.AppendLine("</body></html>")
Message.body = sb.ToString
try
client.Send(message)
msgbox("发送成功")
Catch ex As Exception
msgbox("发送失败:" & ex.message)
End Try
此主题相关图片如下：111.png
-- 发布时间：2017/12/7 14:12: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)
Try
client.Send(message)
msgbox("发送成功")
Catch ex As Exception
msgbox("发送失败:" & ex.message)
End Try
-- 发布时间：2017/12/7 15:18:00
--
我自己的电脑能发送邮件,同事的电脑无法发送 结果就是 1楼图片显示发送失败
-- 发布时间：2017/12/7 15:28:00
--
运行这段代码，什么也不要改，看出错的提示是什么。
再有就是，会不会是你360阻止的问题？有可能设置成【永远阻止】了。
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)
-- 发布时间：2017/12/7 15:42:00
--
目前判断就是杀毒软件的阻止?
-- 发布时间：2017/12/7 16:00:00
--
目前判断就是杀毒软件的阻止?
你之前不是问过？360阻止了邮件发送，会弹出窗口提示。
不被360信任的程序发送邮件，都会出现此问题的。
-- 发布时间：2017/12/7 16:11:00
--
因为同事也有他自己的工作,我只能等下班去慢慢测试,杀毒软件是进了白名单的
-- 发布时间：2017/12/7 17:26:00
--
运行这段代码，什么也不要改，看出错的提示是什么。
再有就是，会不会是你360阻止的问题？有可能设置成【永远阻止】了。
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)
试用版无法激活
此主题相关图片如下：111.png
-- 发布时间：2017/12/7 17:39:00
--
那台电脑应该之前用过试用版了吧？这样就不能继续使用试用版。
在你的电脑，做个窗口做个按钮输入代码，发布后拷贝到此电脑测试
-- 发布时间：2017/12/7 17:40:00
--
我就是直接写好一个发送邮件小程序测试的