Salve ragazzi,
ho utilizzato ilseguente codice per inviare email tramite cdosys:
<%
'----------------------------------------------------------------------------------------
'Impostiamo le nostre preferenze
'----------------------------------------------------------------------------------------
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = Request.Form("mail")
Mittente = "utente@utente.it"
Oggetto = "Nuova prova per vedere se funziona"
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
%>
<font face=verdana size=2>La tua email è stata inviata correttamente</font>
il problema è che va come se tutto funziona bene, solo che la mail non mi arriva mai...perchè?
grazie
Rispondi quotando
