Mandar vários emails

[Carlos Moreira 0]

Pessoal eu tenho esse codigo abaixo que roda perfeito no envio de email.

 

Mas estou querendo utiliza-lo para enviar a varios clientes ao mesmo tempo, como posso fazer?

 

email = Request.Form("email")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
 Mailer.FromName = "Formulário - Site"
 Mailer.FromAddress= email
 Mailer.RemoteHost = mail.dominio.com.br
 Mailer.AddRecipient "Site - Contato", meuemail@dominio.com.br
 Mailer.Subject = Request.Form("assunto")
 Mailer.BodyText = "Formulário" & VbCrLf & "Contato"
 Mailer.BodyText = "Nome: " & Request.Form("nome")& vbCrLf
 Mailer.BodyText = "Email: "  & Request.Form("email") & vbCrLf
 Mailer.BodyText = "DDD Telefone: "  & Request.Form("dddtelefone") & vbCrLf
 Mailer.BodyText = "Telefone: "  & Request.Form("telefone") & vbCrLf
 Mailer.BodyText = "Cidade: "  & Request.Form("cidade") & vbCrLf
 Mailer.BodyText = "Estado: "  & Request.Form("estado") & vbCrLf
 Mailer.BodyText = "Assunto: "  & Request.Form("assunto") & vbCrLf
 Mailer.BodyText = "Comentários: "  & Request.Form("comentarios") & vbCrLf
 If Mailer.SendMail then
 'Response.redirect "faleconoscoresp.asp"
 Else
 Response.Write "Mail send failure. Error was " & Mailer.Response
 End If

[Ted k' 126]

como assim, você diz enviar a mesma mensagem, estilo newsletter?

[Carlos Moreira 0]

Isso mesmo exatamente.

[Carlos Moreira 0]

Alguem teria o codigo ou uma solução dentro deste que postei acima

[Ted k' 126]

coloque os e-mails de envio separados por virgula