• User Newbie

    Invio Email

    Ho una pagina ASP che mi invia una mail a degli indirizzi e-mail che sono memorizzati in un DB.
    Però mi da il seguente problema

    Source line: email.From = mittente
    Description: Necessario oggetto: 'email'

    Copio il pezzo di codice relativo al problema:

    ' INDIRIZZO EMAIL NOSTRO
    mittente = "[email protected]"
    Do until Recset.eof
    ' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
    destinatario = RecSet("email")
    ' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
    testo = Request.Form("testo")
    ' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
    oggetto = Request.Form("oggetto")
    ' INVIA IL MESSAGGIO
    Set email = Server.CreateObject("CDONTS.NewMail")
    email.From = mittente
    email.To = destinatario
    email.Subject = oggetto

    Spero che qualcuno mi aiuti!!

    P.S.
    la pagina ASP l'ho provata con Babyweb !!!


  • User Attivo

    posta il codice fino al termine del ciclo


  • User

    @madai said:

    posta il codice fino al termine del ciclo

    Probabilmente manca un

    Set email = nothing
    dopo email.Send

    ma se posti il codice vediamo meglio 😄


  • User Newbie

    ecco tutto il codice

    ' APRE LA CONNESSIONE AL DATABASE E PRELEVA LE EMAIL DELLA NEWSLETTER
    Set RecSet = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT * FROM Email_Newsletter"
    RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
    IF not RecSet.Eof then
    ' INDIRIZZO EMAIL NOSTRO
    mittente = "[email protected]"
    Do until Recset.eof
    ' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
    destinatario = RecSet("email")
    ' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
    testo = Request.Form("testo")
    ' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
    oggetto = Request.Form("oggetto")
    ' INVIA IL MESSAGGIO
    Set email = Server.CreateObject("CDONTS.NewMail")
    email.From = mittente
    email.To = destinatario
    email.Subject = oggetto
    ' FORMATO EMAIL
    email.BodyFormat = 1
    email.MailFormat = 1
    email.Body = testo
    ' INVIA L'EMAIL E..
    email.Send
    Set email = nothing
    ' PASSA AVANTI...
    RecSet.Movenext
    loop
    End If
    RecSet.Close
    Conn.close
    Set RecSet = Nothing
    Set Conn = Nothing
    ' VISUALIZZA UN MESSAGGIO DI CONFERMA:
    %>
    <hr>
    <p align="center"><font face="Verdana" size="4"><b>Messaggio inviati
    correttamente!</b></font></p>
    <hr>
    <%
    Else
    %>
    <hr>
    <p align="center"><font face="Verdana" size="4"><b>Compila tutti i
    campi!</b></font></p>
    <hr>
    <%
    End IF
    Else
    %>


  • Moderatore

    Scusa la banalità, ma sei sicuro che sul server in cui ci sono le tue pagine siano installate le librerie CDONTS?

    :mmm:


  • User Newbie

    veramente le mie pagine nn sono su un server...ma le sto provando in locale con Babyweb!


  • Super User

    @DrZoidberg said:

    veramente le mie pagine nn sono su un server...ma le sto provando in locale con Babyweb!
    E in locale le hai?