Intelligent Message Filter killing real mail
I am using a Microsoft Exchange Server 2003 SP2.....
Web server sends feedback forms from FrontPage server extentions using the IIS SMTP and alsohas an application that sends mail using the following code:
sub prt(str)Response.Write str & vbCrLfend subsub lprt(str)Response.Write str & "<br />" & vbCrLfend subsub wprt(str)Response.Write strend sub
sub sendMail()Const cdoSendUsingPort = 2dim iMsg, iConf, Flds, strHTML, strSmartHost, strdim username, passwordusername = "a user name is here"password = "a password is here"strSmartHost = mailerPathset iMsg = CreateObject("CDO.Message")set iConf = CreateObject("CDO.Configuration")set Flds = iConf.Fields
' set the CDOSYS configuration fields to use port 25 on the SMTP serverwith Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = username'.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password .Updateend with
' build HTML for message bodystrHTML = ""strHTML = strHTML & "<html>"strHTML = strHTML & "<body>"strHTML = strHTML & "You have a new order.<br />"strHTML = strHTML & "Transaction ID: " & transactionID & "<br />"strHTML = strHTML & "Invoice# " & invoice & "<br />"strHTML = strHTML & "<form name=""orderform"" action=""http://" & domain & cartPath & "admin/order.asp"" method=""post"">"strHTML = strHTML & "<input type=""hidden"" name=""targetOrder"" value=""order." & invoice & ".txt"" /><br />"strHTML = strHTML & "<input type=""submit"" value=""View Order"" />"strHTML = strHTML & "</form>"strHTML = strHTML & "</body>"strHTML = strHTML & "</html>"' apply the settings to the messagewith iMsgset .Configuration = iConf.To = emailto.From = "bounce@" & domain.Subject = "New Order: " & invoice.HTMLBody = strHTML.Sendend with'.AddAttachment strPath & ""
' cleanup of variablesset iMsg = Nothingset iConf = Nothingset Flds = NothingResponse.Write "Message Sent"end sub
dim emailto, invoice, transactionID, msgemailto = Request.QueryString("e")invoice = Request.QueryString("i")transactionID = Request.QueryString("t")
if not (emailto <> "" or invoice <> "" or transactionID <> "" or msg <> "") thenlprt "Error"Response.EndelsesendMailend if
For the last several months it seems that about once a month, some times more often, usually after a microsoft update Tuesday, the Intelligent Message Filtering starts rejecting messages.
The web server is in the list of systems to accept mail from.
This problem went away in the past after a reboot of the Mail Server. It did not go away this time!
The system worked fine on 1/7/2008 and failed starting on 1/9/2008
on 1-9/2008 the following updates were installed:
Security Update for Windows Server 2003 (KB943485)Security Update for Windows Server 2003 (KB941644)Windows Malicious Software Removal Tool - January 2008 (KB890830)Microsoft .NET Framework 3.0 Service Pack 1 (KB929300)Microsoft .NET Framework 2.0 Service Pack 1 (KB110806)
any suggestions how I can get this working again!
Michael
January 18th, 2008 5:01am
This topic is archived. No further replies will be accepted.
Other recent topics
