Autodetect CDO

[Eric Caron]

Hi everybody,

Is there a way to detect whether to use CDO (CDOSYS) or CDONTS, depending on
the platform used? Any code sample?

Thanks in advance,

Eric.

[Steven Burn]

<%
If CheckObject("CDONTS.NewMail") <> True Then
Response.Write "CDONTS is not available"
Else
Response.Write "CDONTS is available"
End If
If CheckObject("CDO.Configuration") <> True Then
Response.Write "CDO is not available"
Else
Response.Write "CDO is available"
End If

Function CheckObject(sObject)
On Error Resume Next
Set objClass = CreateObject(sObject)
If Err.Number <> 0 then
'// An error occured, return false
CheckObject = False
Else
If IsObject(objClass) Then CheckObject = True
End If
Set objClass = Nothing
End Function
%>
--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Eric Caron" <msnews.microsoft.com> wrote in message
news:#A**************@TK2MSFTNGP15.phx.gbl...

Hi everybody,

Is there a way to detect whether to use CDO (CDOSYS) or CDONTS, depending on the platform used? Any code sample?

Thanks in advance,

Eric.

[Dave Anderson]

Eric Caron wrote:

Is there a way to detect whether to use CDO (CDOSYS) or CDONTS,
depending on the platform used? Any code sample?

try {
var Message = Server.CreateObject("CDO.Message")
}
catch(e) { ...repeat as required for CDONTS... }
--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms. Please do not contact
me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.

[Eric Caron]

Thanks Steven!

I was looking for a more complicated method of identifying the platform, but
your solution is simple et elegant. Is there a reason you would check for
the Configuration object instead of Message?

"Steven Burn" <so*******@in-time.invalid> wrote in message
news:uH**************@TK2MSFTNGP10.phx.gbl...

<%
If CheckObject("CDONTS.NewMail") <> True Then
Response.Write "CDONTS is not available"
Else
Response.Write "CDONTS is available"
End If
If CheckObject("CDO.Configuration") <> True Then
Response.Write "CDO is not available"
Else
Response.Write "CDO is available"
End If

Function CheckObject(sObject)
On Error Resume Next
Set objClass = CreateObject(sObject)
If Err.Number <> 0 then
'// An error occured, return false
CheckObject = False
Else
If IsObject(objClass) Then CheckObject = True
End If
Set objClass = Nothing
End Function
%>
--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Eric Caron" <msnews.microsoft.com> wrote in message
news:#A**************@TK2MSFTNGP15.phx.gbl...

Hi everybody,

Is there a way to detect whether to use CDO (CDOSYS) or CDONTS, depending

on

the platform used? Any code sample?

Thanks in advance,

Eric.

[Eric Caron]

Try...Catch only works with .NET tho. This is for an older project. Thanks
for the suggestion.

Eric.

"Dave Anderson" <GT**********@spammotel.com> wrote in message
news:OZ**************@tk2msftngp13.phx.gbl...

Eric Caron wrote:

Is there a way to detect whether to use CDO (CDOSYS) or CDONTS,
depending on the platform used? Any code sample?

try {
var Message = Server.CreateObject("CDO.Message")
}
catch(e) { ...repeat as required for CDONTS... }
--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message.
Use of this email address implies consent to these terms. Please do not
contact me directly or ask me to contact you directly for assistance. If
your question is worth asking, it's worth posting.

[Steven Burn]

No specific reason, tis just the object I use when working with CDO ...

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Eric Caron" <msnews.microsoft.com> wrote in message
news:#$**************@TK2MSFTNGP10.phx.gbl...

Thanks Steven!

I was looking for a more complicated method of identifying the platform, but your solution is simple et elegant. Is there a reason you would check for
the Configuration object instead of Message?

"Steven Burn" <so*******@in-time.invalid> wrote in message
news:uH**************@TK2MSFTNGP10.phx.gbl...

<%
If CheckObject("CDONTS.NewMail") <> True Then
Response.Write "CDONTS is not available"
Else
Response.Write "CDONTS is available"
End If
If CheckObject("CDO.Configuration") <> True Then
Response.Write "CDO is not available"
Else
Response.Write "CDO is available"
End If

Function CheckObject(sObject)
On Error Resume Next
Set objClass = CreateObject(sObject)
If Err.Number <> 0 then
'// An error occured, return false
CheckObject = False
Else
If IsObject(objClass) Then CheckObject = True
End If
Set objClass = Nothing
End Function
%>
--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Eric Caron" <msnews.microsoft.com> wrote in message
news:#A**************@TK2MSFTNGP15.phx.gbl...

Hi everybody,

Is there a way to detect whether to use CDO (CDOSYS) or CDONTS,

depending on

the platform used? Any code sample?

Thanks in advance,

Eric.

[Dave Anderson]

Eric Caron wrote:

Try...Catch only works with .NET tho. This is for an older project.
Thanks for the suggestion.

Incorrect. I use it every single day in classic ASP.


--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms. Please do not contact
me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.

[Michael D. Ober]

Is it part of the JScript language? It's definitely not part of VBScript.

Mike Ober.

"Dave Anderson" <GT**********@spammotel.com> wrote in message
news:uk**************@TK2MSFTNGP10.phx.gbl...

Eric Caron wrote:

Try...Catch only works with .NET tho. This is for an older project.
Thanks for the suggestion.
Incorrect. I use it every single day in classic ASP.


--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message.

Use of this email address implies consent to these terms. Please do not contact me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.

[Dave Anderson]

Michael D. Ober wrote:

Is it part of the JScript language? It's definitely not part of
VBScript.

It is.

--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms. Please do not contact
me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.