Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject ("CDO.Configuration")
With objConfig

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields.update
End With
Set objMail.Configuration = objConfig
objMail.From = "mittente@esempio.it"
objMail.To = "destinatario@esempio.it"
objMail.Subject = "titolo"
objMail.TextBody = "testo"
objMail.Send