Ciao ragazzi, ecco il mio problema. Ho questo script per l'invio di una newsletter, solo che chi la riceve vede tutti gli indirizzi ai quali è stata mandata.... come faccio a nasconderli?
Grazie
Dim iMsg, iConf, Flds
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "info@dominio.it"
destinatario = stremail
oggetto = "newsletter del "& strdata
messaggio = "Invio con CDOSYS"
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio
'Invio di una pagina web
tipo = request.QueryString("tipo")
if tipo = "generale" then
.CreateMHTMLBody "http://www.dominio.it/newsletter/mail.asp"
else
.CreateMHTMLBody "http://www.dominio.it/newsletter/mail1.asp"
end if
'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")
'Invia l'email
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
Rispondi quotando
