CDonts?

[guilhermezd 0]

como faria para enviar para vários email uns 10.<% Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "contato@seudominio.com.br"Mailer.To = "contato@seudominio.com.br"Mailer.Subject = "Solicitação de Contato"Mailer.Body = "Email via Web" + vbCrLf + ""&_ "Nome = " + Request.Form("nome") + vbCrLf + ""&_ "Email = " + Request.Form("email") + vbCrLf + ""&_ "Telefone = " + Request.Form("tel") + vbCrLf + ""&_ "Mensagem = " + Request.Form("mensagem")Mailer.SendSet Mailer = Nothingresponse.redirect "obrigado.htm"%>Obrigado

[ska_ska 0]

uma das formas, parece q funciona...

ASP [/tr][tr]

Mailer.To = "user1@example.com;user2@example.com;user3@example.com"

[/tr]

 

mas consulta a documentação do fabricante... ok...

http://msdn.microsoft.com/library/default....ail_object_.asp

[alphamek 2]

Ou senão, se for utilizar com algum banco de dados faça o seguinte.

 

ASP [/tr][tr]

<%

 

Set RecordSet = Server.CreateObject ("ADODB.RecordSet")

 

Set Mailer = CreateObject("CDONTS.NewMail")

 

Do While Not RecordSet.EoF

 

Mailer.From = "seu@email.com.br"

Mailer.To = RecordSet("Emails")

Mailer.Subject = "CONTATO"

Mailer.Body = "AQUI FICA O CORPO DO E-MAIL QUE QUIZER COM DADOS DINAMICOS"

Mailer.Send

RecordSet.moveNext

Loop

 

Set Mailer = Nothing

 

response.redirect "obrigado.htm"

 

%>

[/tr]

 

Oks

 

Abraços, http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif