Che faccio?

Uso questo codice trovato nel forum:
codice:
<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "mail@mail.it"
MiaMail.To = "mail@alice.it"
'MiaMail.Cc = "gigi@gigi.it"
'MiaMail.Bcc = "pluto@pippo.it"
MiaMail.Subject = "oggetto"
MiaMail.HTMLBody = "testo email"
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

%>
Manca qualche campo di configurazione? Tipo:
codice:
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'indica smtp che usi per l'invio
Flds(cdoSMTPServer) = "smtp.aruba.it"
'indica la porta 
Flds(cdoSMTPServerPort) = 25
'indica eventuale autenticazione o lascia cdoAnonymous 
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
Quale può essere il problema?
Il sito ha l'hosting su Aruba...