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
%>