以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]System.Net.Mail提示发送邮件失败?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171098)

--  作者:无我是天机
--  发布时间:2021/8/18 10:14:00
--  [求助]System.Net.Mail提示发送邮件失败?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210818093754.jpg
图片点击可在新窗口打开查看

同样的项目代码,在本机(环境:win10+.NET Framework3.5)测试是OK的能正常发送邮件,但是在服务器上(环境:win server 2016 standard+.NET Framework4.6 )点击按钮就立即弹出“发送邮件失败”的错误提示?请老师帮忙看看,谢谢!

代码如下:
Dim client As New System.Net.Mail.SmtpClient()
client.Host = "xxxxxx"
client.Credentials = New System.Net.NetworkCredential("fn-hn@xxxx", "Hwdxxxxxx2MDW")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = new System.Net.Mail.MailAddress("fn-hn@xxxx")
message.To.Add("yy@xxxx")
message.Subject = "李总明天来北京"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True

Dim body As String = "<html><body>内容</body></html>"
Dim content As String = "12345678<font size=7 color=red>12345678</font>"

message.Body = body.Replace("内容", content)

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try

--  作者:有点蓝
--  发布时间:2021/8/18 10:29:00
--  
看看是不是这个原因:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=146684&replyID=57021&skin=1
--  作者:无我是天机
--  发布时间:2021/8/18 17:07:00
--  
谢谢蓝老师。应该不是端口问题。如果是端口问题的话,我本机上测试也应该会出现同样的问题才对。但实际情况时,我本机测试都是OK的,都能成功发送邮件。请老师帮忙分析分析还有没有其他原因呢?
--  作者:有点蓝
--  发布时间:2021/8/18 17:24:00
--  
代码没有问题,只能是电脑环境的原因了