Dopo aver scritto un destinatario e un mittente esistenti, questo codice non invia la email. Desidererei un aiuto. Grazie

lanvoel

codice:
<!DOCTYPE html>
<html>
<body>
<%
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = destinatario@dominio.ext
Mittente = mittente@dominio.ext
Oggetto = "invio email"
Testo = "invio di email di prova"
 
Dim eMail
Set eMail = CreateObject("CDO.Message")
 
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto
 
eMail.TextBody = Testo
 
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()

eMail.Send()
 
Set eMail = Nothing
Response.Write "Email inviata con successo!"
%>
</body>
</html>