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ì:
Vedi se ti può essere utilecodice: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![]()

Rispondi quotando
