O Componente CDOSys foi criado para substituir o antigo CDONTS no Windows 2003 server.
Abaixo você poderá conferir um exemplo de como enviar e-mails utilizando este novo componente:
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.seusite.com.br"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "seuemail@seusite.com.br"
cdoMessage.To = "destino@site.com.br"
cdoMessage.Subject = "Assunto"
cdoMessage.HTMLBody = "corpo da mensagem"
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Não se esqueça de alterar os ítens em AMARELO pelos dados referentes ao seu site.