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:
In questo modo lui manda le mail a tutti gli indirizzi presenti nel database.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 %>
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.
![]()

Rispondi quotando