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.
    • 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