invio e-mail con form no errore ma non parte

**alessandra73** · 29-08-2006, 15:06

Ciao a tutti, il contesto è un form di richiesta informazioni.

Mi sarebbe piaciuto inserire nel momento del clic sul pulante invia la richiesta, un ritorno di conferma richiesta con una mail all'utente che ha inserito la richiesta ma e qui che non capisco il codice viene processato senza problemi tanto e vero che va alla pagina voluta dopo l'inserimento della richiesta ma la mail di conferma non parte.

Premetto che il sito è sullo spazio di aruba, che uso il cdosys_114 e che non sono per niente esperta, ho pensato ad un errore di etichette, di denominazione si submit ma lo controllate attentamente. Sarebbe più facile se almeno ci fosse un errore ma niente le informazioni le inserisce perfettamente anche nel database.

' *** Send An Email From A Web Page - CDOSYS_114
If (request ("submit")<> "") Then
Set usxMsg = CreateObject("CDO.Message")
Set usxConf = CreateObject("CDO.Configuration")

' Set the SMTP Server
Set Flds = usxConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
.Update
End With

With usxMsg
Set .Configuration = usxConf
.To = request.Form("E_MAIL")
.From = "info@nomesito.it"
.Subject = "Richieste/Informazioni"
.TextBody = "Buongiorno " &request("Cognome")&" ha ricevuto questa e-mail, perchè ha richiesto informazioni per "&request("DESCRIZIONE")&" "& vbCrLf & vbCrLf & "Grazie. Entro 24/48 h. ricevera' un ulteriore conferma. Cordiali saluti. "
.Fields.Update
.Send
End With

Response.redirect("richiesta_avvenuta.asp")

Set Flds = Nothing
Set usxMsg = Nothing
Set usxConf = Nothing
End If
%>

Vi ringrazio per l'attenzione, ciao Alessandra

**Federix** · 29-08-2006, 15:28

Messaggio non conforme al regolamento

Edit:
Riapro e sposto dentro il forum ASP

**santino83_11_04** · 29-08-2006, 19:31

fatti un giro su "invia email cdosys" usando il tasto search, è un tema molto trattato

**deivnet** · 30-08-2006, 00:16

Non ti parte la mail perchè non ti autentichi sul server smtp di aruba...devi aggiungere tre righe allo scripts dove indichi smtp.aruba.it indicanto un'account e una password validi per il server aruba.

Le righe sono queste

codice:

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = NomeUtente
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Password

**alessandra73** · 30-08-2006, 09:31

ti ringrazio ci provo subito

**alessandra73** · 30-08-2006, 10:34

ho inserito il codice con le varianti del nome utente e password non da errori, i dati si inseriscono nel database, va alla pagina prevista dopo l'inserimento dei dati nel modulo ma non parte la mail, non ancora. Ricontrollo le etichette e i nomi del pulsante send.
Non so se sto sbagliando, tutto questo codice viene inserito prima di <html> <head> per caso manca qualcosa che non ho inserito dopo <html>?

<%
' *** Send An Email From A Web Page - CDOSYS_114
If (request ("submit")<> "") Then
Set usxMsg = CreateObject("CDO.Message")
Set usxConf = CreateObject("CDO.Configuration")

' Set the SMTP Server
Set Flds = usxConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

.Update
End With

With usxMsg
Set .Configuration = usxConf
.To = request.Form("E_MAIL")
.From = "indirizzomailaruba"
.Subject = "Richieste/Informazioni"
.TextBody = "Buongiorno " &request("Cognome")&" ha ricevuto questa e-mail, perchè ha richiesto informazioni per "&request("DESCRIZIONE")&" "& vbCrLf & vbCrLf & "Grazie. Entro 24/48 h. ricevera' un ulteriore conferma. "
.Fields.Update
.Send
End With

Response.redirect("richiesta_avvenuta.asp")

Set Flds = Nothing
Set usxMsg = Nothing
Set usxConf = Nothing
End If
%>

Grazie non riesco ad arrivarci.

Discussione: invio e-mail con form no errore ma non parte

Strumenti discussione

Ricerca discussione

Visualizza

invio e-mail con form no errore ma non parte

non parte la mail

Permessi di invio