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

    Newsletter con saluto personalizzato ogni mail inviata

    Salve ragazzi buongiorno.

    Ho trovato uno script molto semplce che mi permette di inviare una news letter direttamente dal sito.

    Ho un database con una tabella utenti che oltre al campo della mail ha anche quello relativo al nome e quello relativo al cognome.

    L'invio della mail avviene regolare senza problemi, però adesso io vorrei fare in modo che ogni intestazione della mail che arriva riporta il nome e cognome della persona a cui è indirizzata la mail.
    I dati di nome e cognome li prendo direttamente dal db dove ho le rispettive mail.
    Lo script che ho è il seguente:
    codice:
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
    <% session.lcid=1040 %>
    <% 
    'Mi collego al db ed estraggo gli indirizzi email 
    Dim rs, conn, sql 
    Set rs = Server.CreateObject("ADODB.Recordset") 
    conn = "DSN=newsLetter;" 
    sql = "SELECT * FROM utenti" 
    rs.Open sql, conn 
    
    'Inserisco dentro la variabile bcc tutti i destinatari 
    x = 0 
    do until rs.eof 
    x = x + 1 
    if x = 1 then 
    bcc = rs("email") 
    else 
    bcc = bcc & ", " & rs("email") 
    end if 
    rs.moveNext 
    loop 
    rs.close 
    Set rs = Nothing 
    
    'Invio l'email 
    Dim miaMail 
    Set Config = CreateObject("CDO.Configuration") 
    
    Set Fields = Config.Fields 
    Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
    Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
    Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxx@xxxxxx.it" 
    Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxx" 
    Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxxx.xxxxx.xxxx" 
    Fields.Update 
    Set MiaMail = CreateObject("CDO.Message")
    Set MiaMail.Configuration = Config 
    
    
    miaMail.From = "xxxxx@xxxxx.xx" 
    miaMail.To = "xxxxx@xxxxx.xx" 
    
    miaMail.bcc = bcc 
    miaMessaggio =request("messaggio")
    miaOggetto =request("oggetto")
    'miaNome = rs("email")
    
    miaMail.Subject = miaOggetto 
    miaMail.TextBody = messaggio
    miaMail.Send 
    
    Set miaMail = Nothing 
    %>
    In questo modo lui manda le mail a tutti gli indirizzi presenti nel database.
    Secondo me devo fare un ciclo in cui estraggo tutti i nome e cognome relativi alla mail di appartenenza.

    Solo che non so da dove partire.

    Potete darmi una mano cortesemente?

    Grazie a tutti in anticipo.

    <a href="http://www.robertodidonato.it" target="_blank">Roberto Di Donato</a>

  2. #2
    concettualmente sei in errore. il tuo script manda UNA mail a TUTTI i destinatari in un colpo solo. devi invece mandare UNA mail ad OGNI destinatario, se vuoi personalizzarla... pensaci

  3. #3
    Grazie per avermi dato lo spunto Optime. Ho risolto.
    Putroppo come dici te ho sbagliato l'approccio al problema perciò non riuscivo a capire la strada da seguire.

    Ho risolto seguendo il tuo spunto.

    Ciao e buona giornata.

    <a href="http://www.robertodidonato.it" target="_blank">Roberto Di Donato</a>

  4. #4

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 © 2024 vBulletin Solutions, Inc. All rights reserved.