Il componente CDONTS e’ diventato obsoleto dalla versione Windows 2003. Per poter inviare email conviene utilizzare il componente CDOSYS. In particolare

Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject(”CDO.Message”)

Set objCDOSYSCon = Server.CreateObject (”CDO.Configuration”)

‘Il server SMTP va inserito nella riga successiva
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “localhost”
‘porta SMTP
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
‘Timeout
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = “mittente@test.net”
objCDOSYSMail.To = “destinatario@anywhere.com”
objCDOSYSMail.Subject = “Il subject va inserito qui”
‘Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
objCDOSYSMail.HTMLBody = “Il corpo del messaggio va inserito qui”
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Lo script in questione non prevede l’autenticazione in uscita, a breve verra’ postato un articolo per il sistema con autenticazione in uscita.