[Resolvido] Enviar e-mail com asp

[l_nando 0]

Galera, boa noite.

Olha eu aqui novamente perturbando com minhas dúvidas!

 

Seguinte, tenho um script em asp que está funcionando perfeito, ele pega todos os contatos do bd e envia um email, só que de uma vez só e eu queria que enviasse para um contato cadastrado de cada vez!

 

será que é possível?

 

Segue o script atual:

 

<!--#include file="conexao.asp" -->

<% dim bco, rs, sq, Vslepq2, Nomes, I

Vsleqp2 = request.Form("sleqp2")
'Response.write("Vsleqp2 - " & Vsleqp2  & "<br>")
Nomes= SPLIT(Vsleqp2, " ")
sq = "Select JOGADOR, EMAILJOG from JOGADOR where EQPTURM Like'%" & Nomes(0) & "%'"
'Response.write("0- " & sq & "<br>")
FOR I = LBOUND(Nomes) + 1 TO UBOUND(Nomes)
sq = sq & " AND EQPTURM Like'%" & Nomes(I) & "%'"
'Response.write(I & "- " & sq & "<br>")
NEXT
	
AbreConn

Set rs = bco.execute(sq)



Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = "smtp.dominio.com.br"
Mail.From = "meunome@dominio.com.br"
Mail.FromName = "Meu Nome"
rs.moveFirst
Do While not rs.Eof
Mail.AddAddress  rs("EMAILJOG"), rs("JOGADOR")
Mail.Subject = request.Form("emlass")
Mail.Body = request.Form("emlmen")
Mail.Send
rs.MoveNext
Loop



    On Error Resume Next
	if Mail.Send then
	response.Redirect("inicial01.asp")
    else If Err <> 0 Then
    Response.Write "Ocorreu o seguinte erro: " & Err.Description
    End If
	End if


FechaConn
%>

Grato pela ajuda!

[xanburzum 169]

você precisa colocar ele dentro do laço...

e tb tem exemplos no forum, caso keira consultar...

você pode até paginar o envio tb...

[l_nando 0]

Se não for abusar muito!

 

Será que você pode me dar um ex. de como colocar ele dentro do laço neste script mesmo?

 

Grato

 

Abraço

 

Fiz desta maneira e parece que está dando certo

 

segue trecho do cod:

 

AbreConn

Set rs = bco.execute(sq)

rs.moveFirst
Do While not rs.Eof

Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = "smtp.dominio.com.br"
Mail.From = "meunome@dominio.com.br"
Mail.FromName = "Meu Nome"

Mail.AddAddress  rs("EMAILJOG"), rs("JOGADOR")
Mail.Subject = request.Form("emlass")
Mail.Body = request.Form("emlmen")

rs.MoveNext

Mail.Send

Loop

Abraços.

[xanburzum 169]

<%

Option Explicit

'aki você recupera as variaveis de um form , se houver

 

 

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bd/emails.mdb")

set bd=Server.CreateObject("ADODB.Connection")

set rs=Server.CreateObject("ADODB.Recordset")

 

"Abrindo conexao

bd.Open localbd

"Selecionando todos os users

rs.Open "SELECT * from user where cod_grupo="&grupoForm&"", bd

"Faremos um while para que ele envie para cada um dos e-mails selecionados

while NOT rs.EOF

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.dominio.com.br"

Mail.From = "meunome@dominio.com.br"

Mail.FromName = "Meu Nome"

Mail.AddAddress rs("EMAILJOG"), rs("JOGADOR")

Mail.Subject = request.Form("emlass")

Mail.Body = request.Form("emlmen")

Mail.Send

rs.MoveNext

wend

 

"Mostrando confirmação e voltando

response.write("<script>location=principal.asp;alert("Seus e-mails foram enviados com sucesso.")</script>")

end if

%>

[l_nando 0]

xanburzum, boa tarde.

 

Desculpe a demora para responder, pois eu estava fora.

 

Fiz o teste e funcionou belezinha, valeu pela força!

 

Abraço!!

[xanburzum 169]

beleza, kker coisa , posta ae...