CDONTS is depreciated. I would use CDO try the code below.
<%
on error resume next
Set Mssg = Server.CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=0
.Item("urn:schemas:httpmail:importance").Value = 2
.Update
End With
with Mssg
Set .Configuration = iConf
.CreateMHTMLBody ("http://www.yahoo.com/")
.Subject = "Test Of
www.jhdesigninc.com Web Mail"
.From = "
[email protected]"
.To = "
[email protected]"
.Send
End With
response.write err.description &"<BR<BR>"
Set Mssg=Nothing
Set iConf=Nothing
Set Flds=Nothing
%>
My test mail has been sent. Errors are listed above^
Earl
www.jhdesigninc.com