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