Is CDONTs installed and working correctly?

External Since: Dec 15, 2004 Posts: 2

We are moving a perl application from IIS5/Win2000 to IIS6/XP2003. We are
using CDONTs on the old installation and it works. Perl aborts on the new
installation when we (er, the perl script) create an instance of the CDONTS
COM object.

(1) How do I determine if CDONTs is installed?
(2) Is there a way to determine if CDONTs is working correctly (besides
running my perl script)?

Thanks,
Siegfried

External Since: Apr 03, 2004 Posts: 367

"Siegfried Heintze" <siegfried RemoveThis @heintze.com> wrote in message
news:%23SiUmev4EHA.3864@TK2MSFTNGP15.phx.gbl...
> We are moving a perl application from IIS5/Win2000 to IIS6/XP2003. We are
> using CDONTs on the old installation and it works. Perl aborts on the new
> installation when we (er, the perl script) create an instance of the
> CDONTS
> COM object.
>
> (1) How do I determine if CDONTs is installed?
You shouldn't . CDONTS is deprecated and starting with XP 2003 it is not
installed anymore.

Use CDO instead.

Set mail = CreateObject("CDO.Message")
Set cdoConfig = CreateObject("CDO.Configuration")
Mail.From = Chr(34) + strName + Chr(34) + (" <" + strEmail + ">")
mail.To = "mail@mail.com"

with cdoConfig.fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing").value =
2
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver").value
= "yoursmtpserver"
.update
End With
Set mail.Configuration = cdoConfig
Mail.From = "blah@blah.invalid"
mail.Subject ="Test"
mail.Textbody= strAbout
Mail.Send

> (2) Is there a way to determine if CDONTs is working correctly (besides
> running my perl script)?

If an object is not existing, just try-catch the error. But again, CDONTS is
not supported anymore. Sorry.

> Thanks,
> Siegfried
>
>