dim mail
Setmail=CreateObject("CDONTS.Newmail")
mail.To = ""
mail.bcc = email
mail.From = "newsletter@piccolobill.com"
mail.Subject = oggetto
mail.Body = msg
mail.Send
mail=Nothing
Response.Write("Newsletter inviata con successo.")

prova così.