I have a MS Small Business Server NT4.0 with SP6 running with IIS 4.0 and Exchange 5.5 SP2.
I have a a Website in IIS that is a CRM package that uses CDO to send SMTP email.
I have used s few scipts to test sending email through CDO, and if I send a CDO script from a workstation to use SMTP on the server, the script runs and the email gets sent just fine. If I use the same script on the server, I get an error - "Active X Component cannot create object "CDO.message" error 800A01AD - MSvbscript runtime
error.
Here are the two scripts
Set objEmail = CreateObject("CDO.Message"
objEmail.From = "chuck@MyCompany.com "
objEmail.To = "SX700RNY@Somewhere.com"
objEmail.Subject = "Sending email"
objEmail.Textbody = "Body of email"
objEmail.Send
Set objEmail = CreateObject("CDO.Message"
objEmail.From = "Chuck@MyCompany.com "
objEmail.To = "SX700RNY@Somewhere.com"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
(" = 1
objEmail.Configuration.Fields.Item _
(" = _
"NTSRVR"
objEmail.Configuration.Fields.Item _
(" = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Also, Since I have been trying to work on this issue, I have been watching my Exchange mailbox, and it states that I have 28,000+ items in my mailbox taking up 283K of space. If I look at my mailboc through Outlook 2000, I don't have more than 200 messages in my mailbox. Does anyone know where the rest of these items are and how to access them to delete them?
I have a a Website in IIS that is a CRM package that uses CDO to send SMTP email.
I have used s few scipts to test sending email through CDO, and if I send a CDO script from a workstation to use SMTP on the server, the script runs and the email gets sent just fine. If I use the same script on the server, I get an error - "Active X Component cannot create object "CDO.message" error 800A01AD - MSvbscript runtime
error.
Here are the two scripts
Set objEmail = CreateObject("CDO.Message"
objEmail.From = "chuck@MyCompany.com "
objEmail.To = "SX700RNY@Somewhere.com"
objEmail.Subject = "Sending email"
objEmail.Textbody = "Body of email"
objEmail.Send
Set objEmail = CreateObject("CDO.Message"
objEmail.From = "Chuck@MyCompany.com "
objEmail.To = "SX700RNY@Somewhere.com"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
(" = 1
objEmail.Configuration.Fields.Item _
(" = _
"NTSRVR"
objEmail.Configuration.Fields.Item _
(" = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Also, Since I have been trying to work on this issue, I have been watching my Exchange mailbox, and it states that I have 28,000+ items in my mailbox taking up 283K of space. If I look at my mailboc through Outlook 2000, I don't have more than 200 messages in my mailbox. Does anyone know where the rest of these items are and how to access them to delete them?