Spedisci la mail con i destinatari nel campo BCC (Blind Carbon Copy) ovvero la copia conoscenza nascosta.
In una vecchia pagina ASP usando CDO.Message avevo fatto così:
codice:
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Assegna all'oggetto le proprietà necessarie
objMail.From = Indirizzo del mittente
objMail.Bcc = destinatario1;destinatario2;...
objMail.Subject = "Oggetto della mail"
' Invia l'email
objMail.Send()
Set objMail = Nothing
Vedi se ti può essere utile