Problema codice e-mail

[LucaChp]

Ho questo codice apparentemente funzionante nella cartella public di Aruba:

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.

[cavicchiandrea]

L'errore tradotto:

CDO.Message.1 errore '8004020d 'Almeno uno dei campi Da o Mittente è richiesto, e nessuno dei due è stato trovato.

Il mittente e nome cognome, ma credo ci voglia anche un indirizzo email tipo:
Mittente = "Andrea Cavicchi <mail@server.xxx>"
E se non erro manca anche il destinatario
objMail.To = "indirizzopostadestinatario@server.xxxx" non credo che basti .bcc

[LucaChp]

L'errore non compare più, però l'e-mail non arriva...

[lucavizzi]

Originariamente inviato da LucaChp
L'errore non compare più, però l'e-mail non arriva...

se non l'hanno cambiato, su aruba devi usare: smtp.tuosito.it per la posta in uscita, non localhost