Navigazione

    Privacy - Termini e condizioni
    © 2020 Search On Media Group S.r.l.
    • Registrati
    • Accedi
    • CATEGORIES
    • Discussioni
    • Non letti
    • Recenti
    • Hashtags
    • Popolare
    • Utenti
    • Stream
    • Interest
    • Categories
    1. Home
    2. Categorie
    3. Coding e Sistemistica
    4. Coding
    5. Invio automatico e-mail
    Questa discussione è stata cancellata. Solo gli utenti con diritti di gestione possono vederla.
    • marcocarrieri
      marcocarrieri ModSenior • 29 ott 2009, 07:40 ultima modifica di

      Credo l'errore sia questo.
      Errore causato dal fatto che non si puo provare il codice. 😄

      Cambia questa riga di codice

      set rstmp=connessione.execute(query)

      in

      set rstmp= objConn.execute(query)

      e dimmi se va.

      0 Miglior Risposta Ringrazia Cita Rispondi

        1 Risposta Ultima Risposta
      • P
        partisan75 User • 29 ott 2009, 19:03 ultima modifica di

        Niente da fare...ecco il codice con la tua ultima modifica:

        <% 
        'variabili generali
        tabella = "Utenti"
        mydata = FormatDateTime(Now(),2)
        percorso="/mdb-database/prova_mailing2.mdb"
        mioindirizzomail="mailmiosito"
        ' Connessione
        Set objConn = Server.CreateObject("ADODB.Connection") 
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(percorso) 
        objConn.Open strConn 
        query = "SELECT Nome,Mail FROM "&tabella&" WHERE Data="&mydata
        set rstmp= objConn.execute(query)
        'assegno il risultato a un vettore
        vettore=rstmp.getrows
        'controllo se esistono risultati effettivi
        if(isarray(vettore)) then
        'scorro il vettore
        for indice=0 to ubound(vettore,2)
        'assegno a delle variabili temporanee i valori che mi interessono come mail e nome utente
        tmpnome=vettore(0,indice)
        tmpmail=vettore(1,indice)
        tmptestomail="Ciao " & tmpnome & " auguri da parte nostra"
         
        Set objMail = Server.CreateObject("CDONTS.NewMail") 
        objMail.From=mioindirizzomail
        objMail.To= tmpmail
        objMail.Subject="Auguri" 
        objMail.Body=tmptestomail
        objMail.Send 
        Set objMail = nothing 
        next
        end if
        objConn.Close 
        Set objConn = Nothing
        %>
        

        e questo è l'errore:

        Microsoft JET Database Engineerror '80004005'
        Unrecognized database format 'D:\Inetpub\webs\miosito\mdb-database\prova_mailing2.mdb'.
        /ita/include/aa.asp, line 11

        la linea 11 è questa : objConn.Open strConn

        grazie ancora per l'attenzione...;-)

        0 Miglior Risposta Ringrazia Cita Rispondi

          1 Risposta Ultima Risposta
        • marcocarrieri
          marcocarrieri ModSenior • 29 ott 2009, 19:06 ultima modifica di

          Ma ora sembriamo esserci sembra essere un problema di database non più di codice.

          0 Miglior Risposta Ringrazia Cita Rispondi

            1 Risposta Ultima Risposta
          • P
            partisan75 User • 29 ott 2009, 19:13 ultima modifica di

            Vuoi che ti invii il database?
            Il percorso è il seguente:

            sito/mdb-database/database.mdb

            la pagina la lancio in un'altra cartella della stessa altezza della cartella mdb-database...

            Dimmi tu cosa posso fare. Grazie e scusa per il disturbo

            0 Miglior Risposta Ringrazia Cita Rispondi

              1 Risposta Ultima Risposta
            • marcocarrieri
              marcocarrieri ModSenior • 29 ott 2009, 19:17 ultima modifica di

              Su che hosting sei, direi forse Aruba visto la stringa... quindi non dovrebbero esserci problemi.

              Quell'errore dovrebbe essere generato quando.

              1. Il file potrebbe essere corrotto.
              2. Il file è salvato magari in un formato non giusto, prova con mdb 2003.
              3. Il percorso potrebbe essere sbagliato.

              Prova con queste verifiche prima.

              0 Miglior Risposta Ringrazia Cita Rispondi

                1 Risposta Ultima Risposta
              • marcocarrieri
                marcocarrieri ModSenior • 29 ott 2009, 19:17 ultima modifica di

                Su che hosting sei, direi forse Aruba visto la stringa... quindi non dovrebbero esserci problemi.

                Quell'errore dovrebbe essere generato quando.

                1. Il file potrebbe essere corrotto.
                2. Il file è salvato magari in un formato non giusto, prova con mdb 2003.
                3. Il percorso potrebbe essere sbagliato.

                Prova con queste verifiche prima.

                0 Miglior Risposta Ringrazia Cita Rispondi

                  1 Risposta Ultima Risposta
                • P
                  partisan75 User • 29 ott 2009, 20:15 ultima modifica di

                  Ho messo un nuovo database sicuramente funzionanate con 10 registrazioni, 10 indirizzi e.mail diversi ma tutti funzionanati e 10 date in questo formato ggmmaaaa (ossia 29102009)...

                  e questo è l'errore:

                  ADODB.Recordset error '800a0bcd'
                  Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /ita/include/aa.asp, line 16

                  lalinea 16 è la seguente: vettore=rstmp.getrows

                  0 Miglior Risposta Ringrazia Cita Rispondi

                    1 Risposta Ultima Risposta
                  • marcocarrieri
                    marcocarrieri ModSenior • 30 ott 2009, 07:48 ultima modifica di

                    Ma non capisco chi richiami questo file aa.asp, il codice che ti ho fornito io no. Quindi dove?

                    0 Miglior Risposta Ringrazia Cita Rispondi

                      1 Risposta Ultima Risposta
                    • P
                      partisan75 User • 30 ott 2009, 20:09 ultima modifica di

                      Il codice che mi hai fornito è nella pagina denominata aa.asp, una semplice prova...

                      Hai qualche soluzione?

                      0 Miglior Risposta Ringrazia Cita Rispondi

                        1 Risposta Ultima Risposta
                      • marcocarrieri
                        marcocarrieri ModSenior • 30 ott 2009, 20:14 ultima modifica di

                        Proviamo cosi allora in quella riga scrivi cosi.

                        if not  rstmp.eof then
                           vettore=rstmp.getrows
                        end if
                        

                        Vediamo se cosi va.

                        0 Miglior Risposta Ringrazia Cita Rispondi

                          1 Risposta Ultima Risposta
                        • P
                          partisan75 User • 30 ott 2009, 20:50 ultima modifica di

                          Perfetto, questo il nuovo codice però ora mi esce solo una pagina biance senza nessun errore ma non ricevo nemmeno nessuna mail...
                          Il formato della data è corretto?

                          <%
                          'variabili generali
                          tabella = "Utenti"
                          mydata = FormatDateTime(Now(),2)
                          percorso="/mdb-database/prova.mdb"
                          mioindirizzomail="mio indirizzo email del sito"
                          ' Connessione
                          Set objConn = Server.CreateObject("ADODB.Connection")
                          strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(percorso)
                          objConn.Open strConn
                          query = "SELECT Nome,Mail FROM "&tabella&" WHERE Data="&mydata
                          set rstmp= objConn.execute(query)
                          'assegno il risultato a un vettore
                          if not rstmp.eof then
                          vettore=rstmp.getrows
                          end if
                          'controllo se esistono risultati effettivi
                          if(isarray(vettore)) then
                          'scorro il vettore
                          for indice=0 to ubound(vettore,2)
                          'assegno a delle variabili temporanee i valori che mi interessono come mail e nome utente
                          tmpnome=vettore(0,indice)
                          tmpmail=vettore(1,indice)
                          tmptestomail="Ciao " & tmpnome & " auguri da parte nostra"

                          Set objMail = Server.CreateObject("CDONTS.NewMail")
                          objMail.From=mioindirizzomail
                          objMail.To= tmpmail
                          objMail.Subject="Auguri"
                          objMail.Body=tmptestomail
                          objMail.Send
                          Set objMail = nothing
                          next
                          end if
                          objConn.Close
                          Set objConn = Nothing
                          %>

                          0 Miglior Risposta Ringrazia Cita Rispondi

                            1 Risposta Ultima Risposta
                          • marcocarrieri
                            marcocarrieri ModSenior • 30 ott 2009, 20:53 ultima modifica di

                            Questo non so prova a vedere cosa ti da.

                            mydata = FormatDateTime(Now(),2)
                            responde.write "Data ==> " & mydata
                            
                            0 Miglior Risposta Ringrazia Cita Rispondi

                              1 Risposta Ultima Risposta
                            • P
                              partisan75 User • 30 ott 2009, 21:07 ultima modifica di

                              Ecco l'esito

                              Microsoft VBScript runtime error '800a01a8'
                              Object required: 'responde' /ita/aaaa.asp, line 6

                              e la linea 6 è questa: responde.write "Data ==> " & mydata

                              0 Miglior Risposta Ringrazia Cita Rispondi

                                1 Risposta Ultima Risposta
                              • marcocarrieri
                                marcocarrieri ModSenior • 30 ott 2009, 21:09 ultima modifica di

                                Pardon ho scritto male, response non responde eh eh.
                                Vedrai che ce la faremo. 😄

                                0 Miglior Risposta Ringrazia Cita Rispondi

                                  1 Risposta Ultima Risposta
                                • P
                                  partisan75 User • 30 ott 2009, 21:19 ultima modifica di

                                  Ragazzi quello che sto per scrivervi esula dalla ricerca del codice esatto...
                                  Ho appen comprato il macbook pro 13 pollici... eccezzionale.......

                                  0 Miglior Risposta Ringrazia Cita Rispondi

                                    1 Risposta Ultima Risposta
                                  • P
                                    partisan75 User • 1 nov 2009, 19:41 ultima modifica di

                                    Ragazzi non mi rendo conto come possa essere così complicata una funzione che apparentemente è semplice semplice!
                                    Qualcuno ha nuove idee?
                                    Grazie in anticipo!

                                    0 Miglior Risposta Ringrazia Cita Rispondi

                                      1 Risposta Ultima Risposta
                                    • P
                                      partisan75 User • 5 nov 2009, 21:25 ultima modifica di

                                      Ragazzi finalmente ci sono riuscito, grazie tantissimo a tutti siete stati gentilissimi oltremodo 😉

                                      0 Miglior Risposta Ringrazia Cita Rispondi

                                        1 Risposta Ultima Risposta
                                      • A
                                        atlas1965 User • 6 dic 2009, 21:28 ultima modifica di

                                        Ciao Partisan75,

                                        ho visto la tua discussione ed avrei anche io una situazione molto simile alla tua da risolvere ( controllo in automatico di una data e relativo invio di email ) per cui mi piacerebbe avere la soluzione finale .

                                        Grazie in anticipo .

                                        Saluti a tutti ,

                                        Paolo

                                        0 Miglior Risposta Ringrazia Cita Rispondi

                                          1 Risposta Ultima Risposta
                                        • P
                                          partisan75 User • 24 gen 2010, 15:59 ultima modifica di

                                          Ciao ragazzi come dicevo prima funziona tutto bene ma volendo aggiungere un altro destinatario all'invio automatico e-mail è possibile?
                                          ho provato a fare in questo modo ma non mi funziona, ossia manda due mail alla prima colonna di destinatari....

                                          '---Recupero gli ultimi X prodotti dal database e li stampo a video
                                          query = "SELECT MailCom,MailChiefEng FROM Utenti WHERE Data='"& mydata &"'"

                                          Set rstmp = objConn.Execute (query)

                                          'assegno il risultato a un vettore
                                          vettore=rstmp.getrows
                                          'controllo se esistono risultati effettivi
                                          if(isarray(vettore)) then
                                          'scorro il vettore
                                          for indice=0 to ubound(vettore,2)
                                          'assegno a delle variabili temporanee i valori che mi interessono come mailcom e mailchiefeng
                                          tmpmailcom=vettore(0,indice)
                                          tmpmailchiefeng=vettore(1,indice)
                                          tmptestomail="Ciao auguri da parte nostra"

                                          Set MiaMail = Server.CreateObject("CDO.Message")
                                          MiaMail.From = UrlEcom
                                          MiaMail.To= tmpmailcom
                                          MiaMail.Bcc= tmpmailchiefeng
                                          MiaMail.Subject = "Prova !" 
                                          MiaMail.HTMLBody =tmptestomail
                                          MiaMail.Fields.Update()
                                          MiaMail.Send()
                                          Set MiaMail = Nothing
                                          

                                          Grazie in anticipo a chi vorrà aiutarmi!

                                          0 Miglior Risposta Ringrazia Cita Rispondi

                                            1 Risposta Ultima Risposta
                                          Caricamento altri post
                                          Rispondi
                                          • Topic risposta
                                          Effettua l'accesso per rispondere
                                          • Da Vecchi a Nuovi
                                          • Da Nuovi a Vecchi
                                          • Più Voti