傳輸無法連接到服務器-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/上有一個網站提供全面的常見問題解答，盡管我會在事件日志中查找類似的偶然錯誤。

是否還有其他與該錯誤同時發生的錯誤，例如服務器剛剛重新啟動？