以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 同样的程序部分电脑无法发送邮件 (http://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 13:34:50编辑过]
|
-- 作者:有点甜
-- 发布时间: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:25:28编辑过]
|
-- 作者:有点甜
-- 发布时间: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
--
以下是引用李小胖在2017/12/7 15:42:00的发言: 目前判断就是杀毒软件的阻止?
你之前不是问过?360阻止了邮件发送,会弹出窗口提示。
不被360信任的程序发送邮件,都会出现此问题的。

|
-- 作者:李小胖
-- 发布时间:2017/12/7 16:11:00
--
因为同事也有他自己的工作,我只能等下班去慢慢测试,杀毒软件是进了白名单的
[此贴子已经被作者于2017/12/7 16:15:10编辑过]
|
-- 作者:李小胖
-- 发布时间:2017/12/7 17:26:00
--
以下是引用有点甜在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)
试用版无法激活
此主题相关图片如下:111.png

|
-- 作者:有点甜
-- 发布时间:2017/12/7 17:39:00
--
那台电脑应该之前用过试用版了吧?这样就不能继续使用试用版。
在你的电脑,做个窗口做个按钮输入代码,发布后拷贝到此电脑测试
|
-- 作者:李小胖
-- 发布时间:2017/12/7 17:40:00
--
我就是直接写好一个发送邮件小程序测试的
|