invio email

[papps]

ragazzi ho provato questo codice ma non mi funziona.
Non mi dà errori ma non invia l'email
Sapete qualche altro codice che funziona sicuramente?


<%

Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = "emaildestinazione"
Mittente = "emailmittente"
Oggetto = "Oggetto della mail..."
Testo = "Testo della mail..."

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

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


eMail.TextBody = Testo

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

'Invio la mail!
eMail.Send()

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

[Roby_72]

"Sicuramente" non vuol dire nulla.
Accertarti del componente installato sul tuo server per l'invio delle email e poi cerchi di addattare lo scripot correttamente.

Roby