VBScript Error with CDONTS

[Joseph Narissi]

Hello,

Using IIS4 on a NT4 system.... sometimesI get the following error:

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument

Here is the code:

function UtilSendEmail(to_addr, cc_addr, from_addr, subject, body)

UtilSendEmail=0
Dim objCDO
Set objCDO = CreateObject("CDONTS.NewMail")

objCDO.To = to_addr
objCDO.Cc = cc_addr
objCDO.From = from_addr
objCDO.Subject = subject
objCDO.Body = body
objCDO.Send

set objCDO=Nothing

end function


The error always occurs on the FROM line..... any ideas?

Thanks ahead for any help....

Joesph Narissi
[email]jnarissi@msn.com[/email]

[Aaron Bertrand - MVP]

I don't see the problem, but try using CDO.Message instead... CDONTS is
deprecated.



"Joseph Narissi" <jnarissi@anchor-computer.com> wrote in message
news:eA2gGVicDHA.1748@TK2MSFTNGP12.phx.gbl...

> Hello,
>
> Using IIS4 on a NT4 system.... sometimesI get the following error:
>
> Microsoft VBScript runtime error '800a0005'
> Invalid procedure call or argument
>
> Here is the code:
>
> function UtilSendEmail(to_addr, cc_addr, from_addr, subject, body)
>
> UtilSendEmail=0
> Dim objCDO
> Set objCDO = CreateObject("CDONTS.NewMail")
>
> objCDO.To = to_addr
> objCDO.Cc = cc_addr
> objCDO.From = from_addr
> objCDO.Subject = subject
> objCDO.Body = body
> objCDO.Send
>
> set objCDO=Nothing
>
> end function
>
>
> The error always occurs on the FROM line..... any ideas?
>
> Thanks ahead for any help....
>
> Joesph Narissi
> [email]jnarissi@msn.com[/email]
>
>
>

[Joseph Narissi]

Isnt CDO only available for Win2K+? We are using NT4... does thi smatter?

"Aaron Bertrand - MVP" <aaron@TRASHaspfaq.com> wrote in message
news:eG8tZgicDHA.1748@TK2MSFTNGP12.phx.gbl...

> I don't see the problem, but try using CDO.Message instead... CDONTS is
> deprecated.
>
>
>
> "Joseph Narissi" <jnarissi@anchor-computer.com> wrote in message
> news:eA2gGVicDHA.1748@TK2MSFTNGP12.phx.gbl...

> > Hello,
> >
> > Using IIS4 on a NT4 system.... sometimesI get the following error:
> >
> > Microsoft VBScript runtime error '800a0005'
> > Invalid procedure call or argument
> >
> > Here is the code:
> >
> > function UtilSendEmail(to_addr, cc_addr, from_addr, subject, body)
> >
> > UtilSendEmail=0
> > Dim objCDO
> > Set objCDO = CreateObject("CDONTS.NewMail")
> >
> > objCDO.To = to_addr
> > objCDO.Cc = cc_addr
> > objCDO.From = from_addr
> > objCDO.Subject = subject
> > objCDO.Body = body
> > objCDO.Send
> >
> > set objCDO=Nothing
> >
> > end function
> >
> >
> > The error always occurs on the FROM line..... any ideas?
> >
> > Thanks ahead for any help....
> >
> > Joesph Narissi
> > [email]jnarissi@msn.com[/email]
> >
> >
> >

>
>

[Aaron Bertrand - MVP]

> Isnt CDO only available for Win2K+?

Yes. CDONTS is still deprecated, so your code will stop working when you
finally decide to ditch NT. How about using one of the other dozens of mail
objects available? [url]http://www.aspfaq.com/2119[/url]