Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    Formattare Email recupero password

    Salve a tutti o questo codice che invia password dimenticata e funziona benissimo, vorrei aggiungere del testo ( formattare ) con altre informzìazioni e magari inserire un'immagine al corpo del messaggio, o provato varie soluzioni ma niente.
    Qualcuno mi potrebbe dare delle indicazioni.
    Grazie

    <%
    ' Dichiaro le variabili
    Dim strEmail, objRs, bitPagina

    ' Recupero i dati dal campo del form
    strEmail = Trim(Request.Form("recpassword"))

    ' La variabile bitPagina mi dirà quale pagina caricare
    urlPagina = ""

    ' Preparo il database
    Set objRs = Server.CreateObject("ADODB.Recordset")
    objRs.ActiveConnection = [MM_Reg_STRING]
    objRs.CursorType = 0
    objRs.CursorLocation = 2
    objRs.LockType = 3

    ' Quindi predispongo la query
    objRs.Source = " SELECT Username,Password FROM Utenti " &_
    " WHERE Email LIKE '" & Replace(strEmail, "'", "''") & "' "
    objRs.Open()

    ' Verifica presenza/assenza record
    If Not objRs.EOF or Not objRs.BOF then
    ' Il record esiste, richiamo la procedura d'invio email
    InviaMail "MIA@EMAIL.XX", _
    strEmail, _
    "Invio Password da ", _
    "Ti invio i tuoi dati per fare Login grazie : " & chr(13) & chr(13) &_
    "User: " & objRs.Fields("Username") & chr(13) &_
    "Pass: " & objRs.Fields("Password") & chr(13)

    ' Imposto urlPagina con l'indirizzo della pagina di conferma
    urlPagina = "passwordinviata.asp"
    Else
    ' Imposto urlPagina con l'indirizzo della pagina d'errore
    urlPagina = "errato.asp"
    End If

    objRs.Close()
    Set objRs = Nothing

    ' Ed ora ... richiamiamo le pagine corrette
    Response.Redirect urlPagina
    Response.End

    Sub InviaMail(PAR_Mittente, PAR_Destinatario, PAR_Soggetto, PAR_MailBody )

    Dim VAR_MailServer
    Dim OBJ_SMTP


    Set OBJ_SMTP = Server.CreateObject("CDONTS.NewMail")

    OBJ_SMTP.From = PAR_Mittente
    OBJ_SMTP.To = PAR_Destinatario
    OBJ_SMTP.Subject = PAR_Soggetto
    OBJ_SMTP.Body = PAR_MailBody
    OBJ_SMTP.MailFormat = 1
    obj_SMTP.BodyFormat = 0

    OBJ_SMTP.Send


    Set OBJ_SMTP = Nothing


    End Sub
    %>
    Media Glossy Magazine by gimi302

  2. #2
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    Per fare ciò dovrai passare all'invio in html (esempio) col rischio che il client di posta identifichi la mail come spam e la cestini (questo dipende dalle impostazioni del client di posta) ohe vengano bloccate dal server per lo stesso motivo.
    La domanda è per il recupero dalla password, ne vale la pena solo per modificare l'aspetto grafico della mail?
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  3. #3
    grazie per la risposta, si è vero quello che dici , ne vale la pena oppure no .
    Ma vedere un'email nuda e cruda non è il massimo, o letto che c'è la possibilità di impostare amche in txt .
    Pensi che anche questo sia non appropiato

    grazie
    Media Glossy Magazine by gimi302

  4. #4
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    A me risulta che via due tipologie d'invio html e testuale (quella che usi adesso)
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  5. #5
    si intendevo quella , o visto l'esempio che mi ai suggerito ma non riesco ad implemetarlo con il mio codice, ai qualche suggerimento.

    grazie
    Media Glossy Magazine by gimi302

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.