Francamente non capisco... Mi ha sempre funzionato correttamente, ora non spedisce più!
Qualcuno sa dirmi se sbaglio qualcosa nel codice:
Dim objMail,Corpomail,Destinatario, MailDest
Destinatario = Request.Form("nome") & " " & Request.Form("cognome")
MailTo = Request.Form("email")
MailBody = "Gentile sig. " & Destinatario & ",
"
MailBody = MailBody & "grazie per averci contattato. Verificheremo la disponibilità per il periodo da Lei richiesto e Le risponderemo il prima possibile all'indirizzo " & MailTo
Set objMail = Server.CreateObject("CDO.Message")
With objMail
.From = MailFrom
.To = MailTo
.Subject = "Invio Automatico Mail"
.HTMLBody = MailBody
.Send()
End With
Set objMail = nothing
Rispondi quotando
