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.