codice:
Set iMsg = CreateObject("CDO.Message") 
Set iConf = CreateObject("CDO.Configuration") 
Set Flds = iConf.Fields 

Flds(cdoSendUsingMethod) = cdoSendUsingPort 
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25 
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 
Flds.Update 

With iMsg 
Set .Configuration = iConf 
.To = Request.Form("email") 
.From = invioA
.Sender = invioDa 
.Subject = "Contatto dal sito " & nomeDominio 
.TextBody = "Grazie per averci scritto
.Send 
End With