I am due at a meeting so very quickly:
CDONTS is kind of depriciated now. On server -> 2003 the CDONTS.dll is not even there anymore. It must be dowloaded and registered for CDONTS to work. You need to be be using CDOSYS. here is a code example:
Const cdoSendUsingPort = 2
Dim iMsg,iConf,Flds,strHTML,strSmartHost
StrSmartHost = "10.?.?.?" 'place you SMTP address here
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("
http://schemas.microsoft.com/cdo/con...tion/sendusing") = cdoSendUsingPort
.Item("
http://schemas.microsoft.com/cdo/con...ion/smtpserver") = strSmartHost
.Item("
http://schemas.microsoft.com/cdo/con...nectiontimeout") = 10
.Update
End With
With iMsg
Set .Configuration = iConf
.To = trim(request.form("tEmail"))
.From = Mail_From
.Subject = "Some subject"
.HTMLBody = "Your message body"
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing