Recupero password

windt

Utente Attivo
7 Giu 2016
59
5
8
Salve ragazzi, come al solito qualche piccolo problemino sorge sempre. Non riesco a fare partire la mail per il recupero della

 
Ultima modifica:

Max 1

Super Moderatore
Membro dello Staff
SUPER MOD
MOD
29 Feb 2012
4.449
338
83
@windt
Da regolamento del forum, come tutti noi sei tenuto ad usare il tag
PHP (2).png
quando posti del codice php, oppure la funzione codice dalla barra degli strumenti
box inserisci.png

Inoltre IMPORTANTE: Prima di creare una nuova discussione o di rispondere alle discussioni esistenti ricordati di leggere attentamente il Regolamento del Forum e l'eventuale regolamento specifico della sezione!

Grazie

Correggi i tuoi post
mi raccomando altrimenti sarò costretto a cancellare le discussioni
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
Sostituisci:
Codice:
' esiste
'__________________________________________________________________________________
' configurazione mail
' Windows XP / 2003
cSmtpServer = "smtp.elektric.it"
cSmtpPort = "25"
cSMTPUser = ""
cSMTPPassword = ""

' invio e-mail di notifica
Set myMail = Server.CreateObject("CDO.Message")
'CDO Port (1=localhost 2=network)
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Out going SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= cSmtpServer
'SMTP port
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= cSmtpPort
'SMTP Server password
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/c-do/configuration/sendpassword") = cSMTPPassword
'SMTP Server username
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/c-do/configuration/sendusername") = cSMTPUser
'Timeout
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'Update
myMail.Configuration.Fields.Update
' Windows XP / 2003
' oggetto
myMail.Subject = "Recupero password"
' mittente
myMail.From = "[email protected]"
' destinatario
myMail.To = u_email
' messaggio
myMail.HTMLBody = "Ciao "&u_id&", la tua Password e "&u_password&")"
' send
myMail.Send
Set myMail = Nothing
' confermo e redirect
Response.Write("Password inviata all'indirizzo "&U_email)
Response.Write("<br> ")
'__________________________________________________________________________________

con:

Codice:
' esiste
'__________________________________________________________________________________
' configurazione mail
Set objMail = Server.CreateObject("CDO.Message") 
Set objConfig = Server.createObject("CDO.Configuration") 
    With objConfig 
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.elektric.it"
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
        .Fields.Update
    End With 
                
Set objMail.Configuration = objConfig ' Assegna le configurazioni
    objMail.From = "[email protected]" ' Mittente dell'email (indirizzo)
    objMail.To = u_email ' Destinatario dell'email (indirizzo) 
    objMail.Subject = "Recupero password" ' Oggetto dell'email
    objMail.HTMLBody = "Ciao "&u_id&", la tua Password e "&u_password&")" ' Corpo del messaggio Formato HTML 
    objMail.Send() ' Invia l'email 
Set objMail = Nothing 
'__________________________________________________________________________________
 

windt

Utente Attivo
7 Giu 2016
59
5
8
Ciao Paolo, grazie per l'aiuto. Non mi restituisce nessun errore. Se inserisco indirizzo mail mi dice che non esiste, se non indico niente mi dice che non sono registrato. Ho inserito correzione come da te suggerita.
ASP.net:
<!--#include file="Connections/connDUclassified.asp" -->

<html>
<body>
<h3 align="center">Hai dimenticato la Password?</h3>
<p align="center">Inserisci l'indirizzo email con cui ti sei registrato e la riceverai entro pochi minuti!</p>
<p align="center">
    <form method="POST" action="pass.asp?invia=u_password">
    <input type="text" name="u_email" />
    <input type="submit" value="OK" />
    </form>
</p>
<p align="center">
<%

    invia = Request.QueryString("invia")
    email = Request.Form("u_email")

If invia = "u_password" Then
  
   If email <> "" Then
                 'Apro la connessione al database e verifico che l'utente esista
                strConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../mdb-database/DUclassified.mdb")
            Set Rs = Server.CreateObject("ADODB.Recordset")
                Rs.ActiveConnection = strConnect
                Rs.Source = "SELECT * FROM users WHERE u_email = '"&U_email&"'"
                Rs.CursorType = 0
                Rs.CursorLocation = 2
                Rs.LockType = 1
                Rs.Open()
              If NOT Rs.EOF Then
            
                    username = (Rs.Fields.Item("u_id").Value)
                    password = (Rs.Fields.Item("u_password").Value)



' esiste
'__________________________________________________________________________________
' configurazione mail
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
    With objConfig
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.elektric.it"
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
        .Fields.Update
    End With
                
Set objMail.Configuration = objConfig ' Assegna le configurazioni
    objMail.From = "[email protected]" ' Mittente dell'email (indirizzo)
    objMail.To = u_email ' Destinatario dell'email (indirizzo)
    objMail.Subject = "Recupero password" ' Oggetto dell'email
    objMail.HTMLBody = "Ciao "&u_id&", la tua Password e "&u_password&")" ' Corpo del messaggio Formato HTML
    objMail.Send() ' Invia l'email
Set objMail = Nothing
'__________________________________________________________________________________


                ' confermo e redirect
                Response.Write("Password inviata all'indirizzo "&U_email)
                Response.Write("<br> ")
                '__________________________________________________________________________________
            Else
                ' non esiste
                  Response.Write("<font color='#FF0000'>Email non presente, non sei registrato...!</form>")
            End If
            
            ' chiudo e distruggo tutto
            Rs.Close
        Set Rs = Nothing ' chiudo il recordset

    Else ' e-mail vuota
      
             ' Se non viene inerito alcun indirizzo email restituisco un messaggio di errore
                 Response.Write("<font color=#FF0000>Indirizzo Email non è corretto!</form>")
  
   End If ' chiudo controllo e-mail
  
End If ' chiudo tutto

%>
</p>
</body>
</html>
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
...allora non è un problema di invio email, avevi esordito con "Non riesco a fare partire la mail per il recupero della... ", probabilmente il valore inserito nel form email non viene passato nel modo corretto nel database o non viene valorizzato per niente. Appena ho tempo ricontrollo il codice, ma ha mai funzionato?
 

windt

Utente Attivo
7 Giu 2016
59
5
8
Ciao Paolo, nella confusione sicuramente mi ero espresso male. E' da 2 mesi che cerco di farlo funzionare ma senza nessun risultato :-(
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
intanto correggi questo codice, in particolare questa riga con la variabile email errata:
Codice:
email = Request.Form("u_email")

devi sostituirla con questa, con la variabile email giusta:
Codice:
u_email = Request.Form("u_email")
 
Ultima modifica:

windt

Utente Attivo
7 Giu 2016
59
5
8
Fatto, ho anche corretto questa riga in questo modo "" If u_email <> "" Then""
Finalmente adesso funziona invio della mail, mi resta solo il problema che nella mail riporta dei segni grafici anziche il nome utente e la password
 

windt

Utente Attivo
7 Giu 2016
59
5
8
Paolooooo, grazie a te ho trovato gli errori :) adesso funziona tutto... finalmente. Poi devo trovare degli spunti tuoi per andare a capo in un texarea ;);). E' una fortuna che ci sei, sei sempre disponibile con il tuo aiuto. Un grandissimo grazie
 

windt

Utente Attivo
7 Giu 2016
59
5
8
Come ti dicevo mi è rimasto da configurare solo questaparte di codice, che lla mail che arriva si legge solo l'ultima riga
ASP.net:
Set objMail.Configuration = objConfig ' Assegna le configurazioni
    objMail.From = "[email protected]" ' Mittente dell'email (indirizzo)
    objMail.To = u_email ' Destinatario dell'email (indirizzo)
    objMail.Subject = "Recupero password" ' Oggetto dell'email
    objMail.HTMLBody = "Ciao "&u_first&", " ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Per la tua richiesta le informazioni di login sono : " & vbCrLf & vbCrLf  ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Username: "& u_id & vbCrLf ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Password: "& u_password & vbCrLf & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "----------------------------------------------------" & vbcrlf ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Powered by "& Live_server & vbcrlf' Corpo del messaggio Formato HTML
    
    objMail.Send() ' Invia l'email
Set objMail = Nothing
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
sostituisci:
Codice:
    objMail.HTMLBody = "Ciao "&u_first&", " ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Per la tua richiesta le informazioni di login sono : " & vbCrLf & vbCrLf  ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Username: "& u_id & vbCrLf ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Password: "& u_password & vbCrLf & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "----------------------------------------------------" & vbcrlf ' Corpo del messaggio Formato HTML
    objMail.HTMLBody = "Powered by "& Live_server & vbcrlf' Corpo del messaggio Formato HTML
con questo:
Codice:
messaggio = "<br /><hr />Ciao "&u_first&", in relazione alla tua richiesta, le credenziali per poter accedere al sistema sono le seguenti:<br />"
messaggio = messaggio&". username: "& u_id & "<br />"
messaggio = messaggio&". password: "& u_password & "<br />"
messaggio = messaggio&"Clicca questo collegamento per accedere alla pagina del Login : <a href=" & ServerURL & " target='_blank'>accedi</a><br />"
messaggio = messaggio&"<hr />"
messaggio = messaggio&"Powered by "& Live_server & "<br />"

objMail.HTMLBody = messaggio

il messaggio generato dovrebbe essere una cosa del genere:
1590476112182.png
 

windt

Utente Attivo
7 Giu 2016
59
5
8
Un immenso grazieeeee, adesso si che funziona tutto. Forse più avanti dovro disturbarti nuovamente perchè, mentre la mail di questo form arriva perfettamente e velocemente nella casella di posta, quella del form di chi contatta l'inserzionista arriva come spam......,, ci sto lavorando e voglio provare a riuscire da solo ;);). Cmq sempre grazie per la tua preziosa e impagabile disponibilità. Luigi
 
Discussioni simili
Autore Titolo Forum Risposte Data
H Recupero password dimenticata PHP 0
E Form recupero password PHP 12
C Recupero password Access MS Access 4
R recupero PASSWORD Supporto Mr.Webmaster 3
R Recupero di permalink di un sito che è stato eliminato per errore WordPress 5
T Recupero valori tramite $_GET PHP 4
O Recupero valori da listato Javascript 0
S problema con recupero dati tabella mysql PHP 2
D Recupero dati da HDD esterno Hardware 0
T foreach e fetchAll dove recupero solo l'ultimo record PHP 5
T recupero valori select multipla da android Javascript 3
L Recupero dati da SSD Windows 10 prof Windows e Software 3
S [PHP] Recupero nome immagine da Form con input file PHP 3
Sergio Unia Recupero dati da una vecchia versione MySql [Risolto] MySQL 4
bubino8 [PHP] Recupero id autoincrement PHP 8
I Recupero accesso pannello di controllo dominio Leggi, Normative e Fisco 2
S [PHP] form con metodo get e recupero id PHP 4
Emix [PHP] Check - Select e recupero variabili PHP 40
bubino8 [PHP] Recupero input senza invio PHP 1
U [PHP] Selezione con menu a tendina e recupero selezione PHP 5
L Problema con recupero dati in PHP cURL e JAVA con server PHP 1
P Javascript o Jquery - recupero testo (oltre al valore) di una select Javascript 5
S [PHP] Recupero più dati da form realizzata ciclo FOR PHP 5
P [PHP] Recupero dati da un array PHP 5
P [Javascript] Aiuto per recupero variabili da script Javascript 10
F Recupero dati json Ajax 2
D jquery per recupero variabile Javascript 4
A Form recupero campo Radio PHP 7
I tabella con ciclo, recupero dati PHP 3
P Recupero variabile Ajax 5
Z recupero e stampa a video di immagini da database PHP 3
Emix Problema recupero Dati da MYSQL PHP 20
L Recupero dati da tutte le tabelle nel db MySQL 4
Alessio Gebbia [PHP] Recupero dati da un WHILE ! PHP 3
N Recupero indirizzo mail PHP 1
M recupero dati... PHP 1
filomeni Recupero anchor Javascript 13
P Recupero dati per select form PHP 9
S Recupero valori da tabella tramite id colonna Javascript 1
L Recupero dati form in tabella e invio con ajax. Problemino jQuery 1
L PHP e recupero risultati da query PHP 2
L PHP e recupero risultati da query PHP 11
felino HDD 2.5'' caduto a terra: possibile recupero dei dati al suo interno Hardware 8
D recupero valore radio button PHP 1
Emix Recupero dati da una tabella e spostarli in un altra PHP 11
A Problema recupero valori da select con chiamata ajax Ajax 1
neo996sps Non recupero il value in un select popolato da DB PHP 4
N Chronoforms, recupero nome form Joomla 20
blips Recupero valori select Javascript 1
C Recupero dati da pagina esterna PHP 5

Discussioni simili