CDONTS authentication
<%
Dim objMsg
Dim objConfig
Set objMsg = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
Dim objFields
Set objFields = objConfig.Fields
' Setup server information
objFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mysmtpserver.com"
objFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Setup server login information if your server require it
objFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "SMTPAUTHUser"
objFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SMTPAUTHPassword"
objFields.Update
' Now you can setup message to send
Set objMsg.Configuration = objConfig
objMsg.To = "tosomeone@somewhere.com"
objMsg.From = "fromme@withlove.com"
objMsg.Subject = "Hello"
objMsg.TextBody = "This is my test mail from CDOSYS"
objMsg.Send
%>