Ho questo codice apparentemente funzionante nella cartella public di Aruba:
codice:
If request.querystring("inv")=1 Then  

mittente = Session("nome") & " " & Session("cognome")
oggetto = request.form("oggetto")
oggetto = replace(oggetto,"'","''")
corpo = request.form("corpo")
corpo = replace(corpo,"'","''")

ogg_vero = mittente & " ti scrive: " & oggetto
corpo = mittente & " dello staff ti contatta.
Puoi rispondergli via e-mail a " & Session("email") & ".

Ecco cosa ti ha scritto:
" & request.form("corpo")

dim objMail
dim objConfig
Set objMail = createObject("CDO.Message") ' Crea l'oggetto email	
Set objConfig = Server.createObject ("CDO.Configuration") ' Dimensiona l'oggetto configurazione	
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita (con "localhost" usa il predefinito di IIS) ' 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"	
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25	
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2	
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With	
' Assegna le configurazioni
Set objMail.Configuration = objConfig
objMail.From = mittente
objMail.Subject = ogg_vero
objMail.bcc = rsEntrata("email")

' IMPOSTA ALTA PRIORITA' (! ROSSO)
objMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"
objMail.Fields.Update	

objMail.HTMLBody=corpo
objMail.Send

Set objMail = nothing	
Set objConfig = nothing
al grassetto mi dice questo errore:
CDO.Message.1 error '8004020d' At least one of the From or Sender fields is required, and neither was found.