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

    Invio notifica cartolina con aspemail

    Ciao!
    Ho un problema con un form che utilizza aspemail. Uso aspemail per la segnalazione del servizio di cartoline, dovrebbe esserci una mail che viene inviata al destinatario della cartolina e lo avvisa che c'è una cartolina per lui. Non riesco a far funzionare aspemail con il destinatario da inserire di volta in volta, funziona solo se metto il destinatario già fisso. Aspemail è presente e funzionante sul server.
    Il codice è questo:

    <%
    invio = request("invio")
    destinatario = request("destinatario")
    corpomessaggio = request("corpomessaggio")

    if (invio = "invia") then
    Set messaggio = Server.CreateObject("Persits.MailSender")
    messaggio.host = "smtp.miosito"
    messaggio.from = "info@miosito"
    messaggio.addaddress = destinatario
    messaggio.subject = "Hai ricevuto una cartolina!"
    messaggio.body = corpomessaggio

    On Error Resume Next
    messaggio.Send
    If Err <> 0 Then
    Response.Write "Error encountered: " & Err.Description
    End If
    %>

    <form method="post" action="" name="inviamail">
    <input type="submit" name="nuovo" value="nuovo messaggio">
    </form>

    <%
    else
    %>

    <form method="post" action="" name="inviamail">
    Inserisci l'indirizzo e-mail del destinatario:</p>
    <input type="text" name="destinatario" size="30" class="contatti_type">
    <textarea name="corpomessaggio" rows="10" cols="30" class="contatti_type">Hai ricevuto una cartolina.... </textarea>

    <input type="submit" name="invio" value="invia" id="invia">

    </form>
    <%
    end if
    %>

    Qualcuno capisce dove sbaglio?

  2. #2
    togli:

    codice:
    On Error Resume Next 
    If Err <> 0 Then
    Response.Write "Error encountered: " & Err.Description
    End If
    dal tuo codice e riprova.

  3. #3
    Grazie!
    Ho risolto modificando la stringa dove richiedo il destinatario, togliendo l'uguale (=):
    - messaggio.addaddress destinatario -
    Il codice funzionante è quindi questo:

    <%
    invio = request("invio")
    destinatario = request("destinatario")
    corpomessaggio = request("corpomessaggio")

    if (invio = "invia") then
    Set messaggio = Server.CreateObject("Persits.MailSender")
    messaggio.host = "smtp.miosito"
    messaggio.from = "info@miosito"
    messaggio.addaddress destinatario
    messaggio.subject = "Hai ricevuto una cartolina!"
    messaggio.body = corpomessaggio

    On Error Resume Next
    messaggio.Send
    If Err <> 0 Then
    Response.Write "Error encountered: " & Err.Description
    End If
    %>

    -----------------------------------------------------------------
    www.creativamente.tn.it/

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.