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