关于ASP.NET发邮件的问题，困扰了好几天也没解决！

一个基于Web的发邮件的程序,谢谢您的帮助!
开发环境：VS.NET 2003, ASP.NET, VB.NET, Windows XP professional SP2
当前运行环境：Windows server 2003 Enterprise Edition SP1问题:程序在正常运行6个月之后,突然邮件发送失败,但SMTP Virtual Server 工作正常.异常捕捉显示:
System.IO.FileNotFoundException: The specified module could not be found. at System.RuntimeType.CreateInstanceImpl(Boolean publicOnly) at System.Activator.CreateInstance(Type type, Boolean nonPublic) at System.Web.Mail.CdoSysHelper.Send(MailMessage message) at System.Web.Mail.SmtpMail.Send(MailMessage message) at Web.SendMail.SendEMail()
源代码如下:Imports System.Web.Mail    Private Sub SendEMail()
        Try
            Dim mailMsg As New MailMessage
            'Dim strAttach As String = ""
            Dim strFileName As String = ""
            Dim strSmtpServer As String            mailMsg.From = txtFrom.Text
            mailMsg.To = txtTo.Text
            mailMsg.Cc = txtCC.Text
            mailMsg.Bcc = txtBCC.Text
            mailMsg.Subject = txtSubject.Text
            mailMsg.Body = hdnmsg.Value 
            mailMsg.BodyFormat = MailFormat.Html
            mailMsg.Priority = MailPriority.Normal            strSmtpServer = Configuration.ConfigurationSettings.AppSettings("SMTPServer")
            SmtpMail.SmtpServer.Insert(0, strSmtpServer)
            SmtpMail.Send(mailMsg)            Response.Flush()            lblErrorMsg.ForeColor = Color.Navy
            lblErrorMsg.Text = "*Your email has been sent successfully!"
            lblSuccessMsg.Visible = False
            ResetControls()        Catch ex As Exception
            lblErrorMsg.Text = ex.ToString & ex.Message.ToString '"Failed to send email! Please retry it!"
            lblErrorMsg.ForeColor = Color.Red
        End Try
    End Sub