[ASP] Invio mail

[Petra]

Questo è il codice per inviare le mail...per ora usato solo in locale:

On Error Resume Next
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "Staff<staff@email.com>"
Mail.To = strEMail
strBody = Questo è il mio messaggio"
Mail.Body = strBody
Mail.Subject = "CIAOO"
Mail.MailFormat = 0
Mail.BodyFormat = 0
Mail.Send
Set Mail = Nothing
Dim MailInviata
If Err.Number > 0 Then
 MailInviata = False
Else
 MailInviata = True
End If

Se MailInviata è falsa mi dovrebbe scrivere, tra i tag body, "la mail non è stata inviata mentre se MailInviata è vera mi dovrebbe scrivere "la mail è stata inviata".

Il problema è che in locale non dovrebbe inviare nessuna mail ed infatti non le invia (già provato a mandarmi un mail e non riceverla), ma mi scrive sempre che la mail è stata inviata!!! Come mai ? ?

[viki1967]

Elimina in testa alla pagina quel

On Error Resume Next

se vuoi vedere qual'è realmente l'errore restituito...

[Petra]

Non mi fa alcun errore togliendo on error resume next

[viki1967]

strBody = "Questo è il mio messaggio"

[Petra]

Originariamente inviato da viki1967

strBody = "Questo è il mio messaggio"

Tranquillo...è una dimenticanza che ho postato sul forum...sul codice c'è!!!

Comunque il problema non è che mi fa un errore, il problema è che non mi fa nessun errore da locale!! C'è qualcosa che non va!!

[viki1967]

Ho pubblicato il tuo script su uno spazio web che supporta CDONTS:

 <%
On Error Resume Next
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "Staff<staff@email.com>"
Mail.To = "strEMail"
strBody = "Questo è il mio messaggio"
Mail.Body = strBody
Mail.Subject = "CIAO"
Mail.MailFormat = 0
Mail.BodyFormat = 0
Mail.Send
Set Mail = Nothing
Dim MailInviata
If Err.Number > 0 Then
 MailInviata = False
 response.write "false"
Else
 MailInviata = True
 response.write "true"
End If
%>

e ricevo l'email correttamente.

Fai lo stesso e riprova.

[Petra]

Originariamente inviato da viki1967
Ho pubblicato il tuo script su uno spazio web che supporta CDONTS:

 <%
On Error Resume Next
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "Staff<staff@email.com>"
Mail.To = "strEMail"
strBody = "Questo è il mio messaggio"
Mail.Body = strBody
Mail.Subject = "CIAO"
Mail.MailFormat = 0
Mail.BodyFormat = 0
Mail.Send
Set Mail = Nothing
Dim MailInviata
If Err.Number > 0 Then
 MailInviata = False
 response.write "false"
Else
 MailInviata = True
 response.write "true"
End If
%>

e ricevo l'email correttamente.

Fai lo stesso e riprova.

Bè...ti ringrazio x la prova e sono contento che funzioni correttamente, ma non riesco a capire perchè non mi da errore se non la spedisce!!! Boh...

[viki1967]

Originariamente inviato da Petra
... sono contento ...

VVoVe: Ma non ti chiami Petra ????

[zadart]

prova a usare err al posto di err.number