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

codice:
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 ? ?