Hello

I am using Window Small Business Server and MS Exchange Server act as the SMTP server. I wrote a web application for sending email to others. It works fine in XP, but error appears in the Small Business Server

Here is the code:
Public Function sendMail(ByVal mailTo As String, ByVal mailFrom As String, ByVal subject As String, ByVal content As String, ByVal priority As String)
Dim mail As New MailMessage
mail.BodyFormat = MailFormat.Text
mail.To = mailTo
mail.From = mailFrom
mail.Subject = subject
mail.Body = content
SmtpMail.SmtpServer = "127.0.0.1"
SmtpMail.Send(mail)
End Function

Error Message:
Could not access 'CDO.Message' object. Exception has been thrown by the target of an invocation. The message could not be sent to the SMTP server. The transport error code was 0x800ccc15. The server response was not available

Please help