[tferrentino]

I have modified a script that accesses the Microsoft Exchange Server. I want to set up a suggestion mailbox on our intranet site. All I get when executing the following code is the HTTP 500 - Internal server error
Internet Explorer witn no diagnostics.

set cdoMessage = Server.CreateObject("CDO.Message")
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "cdpex2.CDP.LOCAL"
cdoConfig.Fields.Update
set cdoMessage.Configuration = cdoConfig
cdoMessage.From = Request.Form("from")
cdoMessage.To = "armstrongg@cobratf.com"
cdoMessage.Subject = Request.Form("ques_or_sugg")
cdoMessage.TextBody = Request.Form("body")
' cdoMessage.Type=Request.Form("ques_or_sugg")
cdoMessage.Department=Request.Form("department")
cdoMessage.Company=Request.Form("company")
cdoMessage.Send
set cdoMessage = Nothing
set cdoConfig = Nothing

Is the code correct?

Thanks

Tom Ferrentino

please disable friendly http error messages and porst the error(s) then i might be able to help more. i dont do exchange yet

[hesiod]

> cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

Is that supposed to be "3" for an exchange server? I saw somewhere else where it meant Exchange, but can't find any official documentation stating anything about 3 being a valid value.