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
%>