Mailing-list con destinatari nascosti

[Sanjet]

Buondì. Ho creato nel mio sito un semplice servizio di mailing-list tra gli utenti iscritti, che estrae tutti gli indirizzi e-mail e li elenca in una variabile in questo modo:

to = to & email & ","

Quindi alla fine sarebbe una cosa del tipo:

to = paolorossi@tonino.it,laura.rosini@tonino.it,silvergrand@frodon.net,ecc@ecc.info...

E l'e-mail viene mandata con un CDOsys. Il problema è che in questo modo il destinatario è noto a tutti e ad ogni utente è esposto ogni indirizzo e-mail, e il proprio indirizzo e-mail è esposto agli altri utenti (cosa che và contro alla legge sulla Privacy).
Quel che mi chiedo è dunque come celare il destinatario (tipo, noto che molto ml hanno in destinatario una cosa del tipo Undiclosed recipient). Idee? Aiuti?

[teorema55]

Con CDOSYS, oltre a specificare i destinatari della mail:

' Destinatario dell'email (indirizzo)
objMail.To = "destinatario@dominio.xx"

puoi anche specificare, come optional, i destinatari in copia Cc (Carbon copy) e Bcc (Blind carbon copy):

' Cc e Bcc (opzionale)
objMail.Cc = "altroindirizzo@dominio.xx; ancora@dominio.xx"
objMail.Bcc = "altroindirizzo@dominio.xx; ancora@dominio.xx"

La seconda, come dice il nome, non permette ai destinatari di conoscere l'indirizzo degli altri destinatari.

Non ti sarà difficile personalizzare l'istruzione relativa adattandola al tuo script.

[Sanjet]

Quindi sarebbe:

objMail.To = "Undiclosed recipient"
objMail.Bcc = to

Giusto? E il destinatario apparirebbe a tutti "Undiclosed recipient"?

[Sanjet]

C'è un problema: io uso Aruba e il codice di esempio che mi mostrano è quello scritto qui sotto. Non ci sono esempi sul Bcc, l'ho aggiunto io (è quello evidenziato in grassetto) ma non so se va bene: secondo te?

'Dove tgo contiene tutti gli indirizzi e-mail...


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

invioDa = "boh@email.it"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR") 
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = "Undiclosed recipient"
.Bcc = tgo 
.From = Request.Form("email")
.Sender = invioDa
.Subject = object
.HTMLBody = content
.Send
End With

[Mr.Fabio]

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = destinatario
   .From = invioDa
   .Sender = invioDa
   .Subject = oggetto
   .TextBody = messaggio
   .Send
End With

E in questo caso come posso fare ad usare Bcc se devo mandare una copia anche a pippo@html.it?

[Mr.Fabio]

contemporaneamente!!!!!!!!

[Sanjet]

No, tu sei minuti più tardi..
Ma è la stessa domanda

[Mr.Fabio]

Nessuno ci aiuta????

[fraude]

Sto su aruba anche io e questo funziona regolarmente... :

sName = request.form("Autore")
sEmail = request.form("Email")
title = request.form("titolo")
message = pulisci(request.form("messaggio"))

data = date()
tempo = time()

messaggio = messaggio & VBcrlf & "<font face = verdana><font size = 1>"
messaggio = messaggio & VBcrlf & "[b]Comunicazione

"
messaggio = messaggio & VBcrlf & "Autore: <font color=red>" & sName & "</font>

"
messaggio = messaggio & VBcrlf & "Data invio:<font color=blue> " & data & "</font>
" 
messaggio = messaggio & VBcrlf & "Ora invio:<font color=blue> " & tempo & "</font>
" 
messaggio = messaggio & VBcrlf & "E-mail:  " & sEmail & "
"
messaggio = messaggio & VBcrlf & "Titolo: <font color=blue> " & title & "</font>
"
messaggio = messaggio & VBcrlf & "Messaggio: <font color=blue> " & message & "</font>
"


'INVIO CON CDOSYS
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "tuaemail@email.it"
miaMail.To = sEmail
miaMail.Subject = "email cdosys"
miaMail.HtmlBody = messaggio
miaMail.Send
Set miaMail = NothingsName = request.form("Autore")
sEmail = request.form("Email")
title = request.form("titolo")
message = pulisci(request.form("messaggio"))

data = date()
tempo = time()

messaggio = messaggio & VBcrlf & "<font face = verdana><font size = 1>"
messaggio = messaggio & VBcrlf & "[b]Comunicazione

"
messaggio = messaggio & VBcrlf & "Autore: <font color=red>" & sName & "</font>

"
messaggio = messaggio & VBcrlf & "Data invio:<font color=blue> " & data & "</font>
" 
messaggio = messaggio & VBcrlf & "Ora invio:<font color=blue> " & tempo & "</font>
" 
messaggio = messaggio & VBcrlf & "E-mail:  " & sEmail & "
"
messaggio = messaggio & VBcrlf & "Titolo: <font color=blue> " & title & "</font>
"
messaggio = messaggio & VBcrlf & "Messaggio: <font color=blue> " & message & "</font>
"


'INVIO CON CDOSYS
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "tuaemail@email.it"
miaMail.To = sEmail
miaMail.Subject = "email cdosys"
miaMail.HtmlBody = messaggio
miaMail.Send
Set miaMail = Nothing

[Mr.Fabio]

allora l'unica maniera di mandare un BCC è praticamente quella di sfruttare due volte l'oggetto CDOSYS...



anche io ho usato questo metodo,anche se penso non sia il migliore e l'unico.
grazie comunque