come nascondere le mail alle quali invio la newsletter

[Stanislao]

come posso evitare che chi riceve la news letter riceva anche le mail alle quali è stata inviata?


con questo codice io invio la mail...

<%
if Request.Form("invia_btn") = "INVIA" then
  Dim Mail
  Set Mail = Server.CreateObject("CDONTS.NewMail")
  Mail.From       = Request.Form("mittente")
  Mail.To         = Request.Form("destinatario")
  Mail.Subject    = Request.Form("oggetto")
  Mail.Body       = Request.Form("messaggio")
  Mail.Importance = 1
  Mail.Send            'invia la e-mail
  Set Mail = nothing
  Response.Write "<CENTER><font face=verdana size=3 color=red>E-mail inviata correttamente!</font></CENTER>


" 
  Response.Write "<center><font face=verdana size=1 color=green>Fai click qui per inviare un'altra e-mail </font></center>"
  
  else
%>
<form action="inviomail.asp" method="post">

allora chi riceve la mail riceve anche tutte le mail iscritte come posso ovviare al problema?



grazie tante!

[Shagrat]

devi mandare una mail a ciascuno (consiglio: mandale in blocchi non tutte assieme)

[Corinna]

Soluzione 1: cicli e le mandi ad una ad una con il solo destinatario unico, a scaglioni
Soluzione 2: sbatti tutti in BCC.

[Stanislao]

siccome il server è mio non ho problemi per l'invio multiplo come faccio in bcc?

[weppos]

Originariamente inviato da Stanislao
siccome il server è mio non ho problemi per l'invio multiplo come faccio in bcc?

Non tutti i server supportano bcc.
Cmq esegui un ciclo concatenando tutti gli indirizzi separati da un ; e poi infili la stringa degli indirizzi nel campo bcc dell'oggetto ed invii.

[jet]

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _
Server.MapPath("mdb-database/my-db.mdb")
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
Set rs1 = conn.Execute("SELECT email FROM Newsletter")
mailinglist2=mailinglist
Do While Not rs1.Eof
mailinglist=mailinglist2&rs1("email")


Set oMessaggioTEXT = CreateObject("CDO.Message")

oMessaggioTEXT.From = "info@tuosito.it"
oMessaggioTEXT.To = mailinglist
oMessaggioTEXT.Subject = "Servizio Newsletter dal sito www.tuosito.it"
oMessaggioTEXT.htmlBody = TestoMail
BodyFormat = 1
MailFormat = 1
oMessaggioTEXT.Send
Set oMessaggioTEXT = Nothing
rs1.movenext
loop
%>

[weppos]

Originariamente inviato da jet
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _
Server.MapPath("mdb-database/my-db.mdb")
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
Set rs1 = conn.Execute("SELECT email FROM Newsletter")
mailinglist2=mailinglist
Do While Not rs1.Eof
mailinglist=mailinglist2&rs1("email")


Set oMessaggioTEXT = CreateObject("CDO.Message")

oMessaggioTEXT.From = "info@tuosito.it"
oMessaggioTEXT.To = mailinglist
oMessaggioTEXT.Subject = "Servizio Newsletter dal sito www.tuosito.it"
oMessaggioTEXT.htmlBody = TestoMail
BodyFormat = 1
MailFormat = 1
oMessaggioTEXT.Send
Set oMessaggioTEXT = Nothing
rs1.movenext
loop
%>

Questo esempio però non usa il bcc ma un classico campo a, il problema esposto all'inizio.

Cmq la soluzione a livello logico è quella, basta adattare il campo di invio.

[jet]

Se avevo capito bene, il problema era non far vedere gli altri indirizzi a chi riceve la newsletter; questo codice fa proprio questo.

[weppos]

Come è possibile? :master:
Usi il campo to

oMessaggioTEXT.To

[jet]

Perchè utilizzo la routine

mailinglist=mailinglist2&rs1("email")
dopo aver dichiarato
mailinglist2=mailinglist

che consente di inviare il messaggio a ciascun utente senza che si vedano gli indirizzi degli altri utenti.