Have recently migrated our application from Win NT to Win 2003. SMTP server is not sending out emails. Made some code changes. But surprisingly, there is no errors, which makes it more harder to trace the problem. Any assistance is appreciated. My codes are below.


************************************************** *****************
Dim objMail
 MsgBox ("Test6b")
    'Set objMail = Server.CreateObject("CDO.Message")
    Set cdoMessage = Server.CreateObject("CDO.Message")
     MsgBox ("Test6c")

    objMail.From = strFrom
    objMail.To = strRecipient
    objMail.Subject = strSubject
    objMail.TextBody = strMessage

    'Send the email
    objMail.Send

    'Clean-up mail object
    Set objMail = Nothing