Email ASP

[DeeKilleer]

Galera, como faço para mandar um email em ASP, para mais de uma pessoa?

O Código está aqui:

<%        
    IF request.querystring("action") = "enviar" Then
    Dim HTML,Email
    
    HTML = Request.Form("mensagem")
    Set Email = Server.CreateObject("CDONTS.NewMail")
    Email.From = "diego@exemplo.com.br"
    Email.To = Session("Email")
    Email.Subject = Request.Form("assunto")
    Email.BodyFormat = 0
    Email.MailFormat = 0
    Email.importance = 2
    Email.Body = HTML
    Email.Send
    Response.Write("Mensagem Enviada com Sucesso!")
    End IF
%>

[Marcelo Penninck]

De onde vem os e-mail das outras pessoas? esse que está no código vem de uma seção criado e os outros vem da onde?

[DeeKilleer]

Vem Daki

<%
        Dim Sql
        Sql = "Select Candidato,ID_Candidato,Email From Candidato_Dados Where ID_Candidato In(" & Request.Form("Numeros") & ")"
        RS = conexao.Execute(Sql)
           Set RS = Server.CreateObject("ADODB.RecordSet")            
        RS.Open Sql, conexao, 3, 3
        While Not RS.EOF 
        Session("Email") = Session("Email") & ";" & RS.Fields("Email")
    %>
    
    <% 
        RS.Movenext 
        Wend    
        RS.Close
        Set RS = Nothing
    %>
    
    <%=    Response.Write(Right(Session("Email"), Len(Session("Email"))-1))%>
    <% Session("Email") = Right(Session("Email"), Len(Session("Email"))-1) %>
    
    <% Session.Abandon
       Session.Contents.Remove(Session("Email")) %>

Os emails são escolhidos por um Check Box em outra página!

Editado Março 25, 2009 por DeeKilleer

[Marcelo Penninck]

Monta um contador no primeiro while, depois na hora de enviar os e-mail monta um while que só termine quando o contado for 0. Espero que tenha entendido mais ou menos!! falow. Isso é só uma ideia!