Salve stò provando a mandare e mail con cdosyscon il seguente codice

<%
'Impostiamo le nostre preferenze
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = "xxxx@xxxx.com"
Mittente = "yyy@yyy.com"
Oggetto = "Oggetto della mail..."
Testo = "Testo della mail..."

'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")

'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto

'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.TextBody = Testo

'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Va lue = 2
eMail.Fields.Update()

'Inviamo la mail!
eMail.Send()

'Eliminiamo l'oggetto...
Set eMail = Nothing
%>

ma mi esce il seguente sulla riga eMail.Send()
errore:CDO.Message.1 error '80070005'

Accesso negato.

mi potete dare una mano?