Mandare mail in automatico (Aruba)

[Shourndern]

Salve a tutti,
nn riesco a mandare in automatico una mail al mio indirizzo dopo aver caricato la mia pagina asp.
Ho uno spazio su Aruba, ma nn sono riuscito a trovare nessun tipo di parametri utili allo scopo.

Qualcuno saprebbe dirmi come fare?

Posto il codice che ho provato:

	Set objMail = server.createObject("CDOSYS.NewMail")

	'Immissione del destinatario
	objMail.To = "xxxx"
	'immissione del mittente
	objMail.From = "xxx"
	'immissione del soggetto della mail
	objMail.Subject = "xxx"
	'immissione del testo della mail
	objMail.Body = "xxx"
	objMail.Send()

Mi da sempre errore nella prima riga, dicendo che nn e in grado di creare l'oggetto :master:

Grazie in anticipo.

[Fesc_098sl]

prova con questo

<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "sitoweb@tuodominio.it"
MiaMail.To = "indirizzo_destinatario@provider.it"
'MiaMail.Cc = "iindirizzo_destinatario@provider.it;altro_indiriz zo_destinatario@provider.it"
'MiaMail.Bcc = "idem_con_copia_nascosta@provider.it"
MiaMail.Subject = "oggetto_mail"
MiaMail.TextBody = "solotesto"
MiaMail. HTMLBody = "html"

' settaggio priorità 2= alta
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing%>

[Fesc_098sl]

gli errori rilevato sono qui

'devi sostituire "CDOSYS.NewMail" con "CDO.message"
<% Set objMail = server.createObject("CDOSYS.NewMail")

'Immissione del destinatario
objMail.To = "xxxx"
'immissione del mittente
objMail.From = "xxx"
'immissione del soggetto della mail
objMail.Subject = "xxx"
'immissione del testo della mail
' e devi sostituire objMail.Body con objMail.htmlBody
objMail.Body = ""
objMail.Send() %>

[Shourndern]

GRAZIE non 1000... un millllllione!