Esatto ... penso anch'io .... dando una sistemata sono arrivato a questo ... potresti dargli una controllata?


codice:
DIM invioA
	
invioA =  "tuamai@esempio.it"
'* voce da modificare con un indirizzo email che funga da mittente: 

'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'qui dovrai mettere l'smpt del tuo sito
Flds(cdoSMTPServer) = "smtp.aruba.it"   
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Nuovo Messaggio sul Zoo Guest Book"
   .HTMLBody = "Questi i dati inseriti nel Guest Book dall'utente " & nome & "  . " & vbCrLf & msg & ""
   .Send
End With
%>