传输无法连接到服务器-CDO.Message-VB.NET

Question

我在服务器上运行了VB.net应用程序，每天将发送近200封电子邮件。 以下是我的编码：

Dim objNewMail = CreateObject("CDO.Message")
                  objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                    objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
                    objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
                    objNewMail.Configuration.Fields.Update()

                    objNewMail.From = mailFrom
                    objNewMail.To = mailTO
                    objNewMail.CC = mailCC
                    objNewMail.bcc = mailBCC

                    objNewMail.Subject = mailSubject
                    objNewMail.HTMLBody = content
                    objNewMail.Send()

                    objNewMail = Nothing

上面的代码在一个循环内运行。 上面的代码运行得很好，没有任何问题。 但每月一次或两次，我收到以下错误消息，应用程序停止。

System.Runtime.InteropServices.COMException（0x80040213）：传输无法连接到服务器。

任何人都可以帮助我解决此问题，或者我也欢迎其他更好的高级方法。

Answer 1

您可能希望将.Send（）调用包装在Try ... Catch中，如果失败，请在几秒钟后重试。

CDO似乎已过时，不再支持System.Net.Mail。 在www.systemnetmail.com/上有一个网站提供全面的常见问题解答，尽管我会在事件日志中查找类似的偶然错误。

是否还有其他与该错误同时发生的错误，例如服务器刚刚重新启动？