And your web host must install it. It sounds like his host doesn't want to.
In that case you have to switch to CDOSYS. Also, by running CDOSYS the web
host doesn't need to have the SMTP server running in IIS, which can be
another security hole. Here's an example:
'***************************************************************************
*****
' Send Email using CDOSYS through a remote server instead of using CDONTS
' This alleviates the problem with the SMTP Server being down on the web
server
Dim iMsg
Dim iConf
Dim Flds
Dim MyBody
Const cdoSendUsingPort = 2 ' This is port 25
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPort
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"mail.MYDOMAIN.com"
..Item("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
) = 10
.Update
End With
'MyBody = "This is a test" & vbCrLf & vbCrLf
MyBody = "Sending email using CDOSYS" & vbCrLf & vbCrLf
With iMsg
Set .Configuration = iConf
.To= "(e-mail address removed)"
.From = "(e-mail address removed)"
.Subject = "Test Message"
.TextBody = MyBody
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing