Envio de e-mail

[hdalarme 0]

Pessoall to fazendo um ambiente para a faculade onde trabalho e agora de deparei com a seguite situação.tenho de fazer um formulario de envio de email que envie para uma determinada turma de alunos, sendo que os email estão em um banco de dados o filtro para exibrir os email da turma está correto mas não sei como enviar o email para todos os alunos da turma. Tem como alguem me ajudar?

[dark0 0]

bom..você precisa fazer um loop, passando por todos os registros trazidos do select no banco, enviando o e-mail.teoricamente é isso ae..você ja conseguiu enviar o e-mail?

[hdalarme 0]

esse é um codigo asp para envio mas não tá enviando nada

 

ASP

[*]<%

 

[*]if request("enviar") <> "" then

 

[*] Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

 

[*] Mailer.RemoteHost = "localhost"

 

[*] Mailer.ContentType = "text/html"

 

[*] Mailer.FromName = request("nome")

 

[*] Mailer.FromAddress = request("email")

 

[*] Mailer.AddRecipient = request("mail")

 

[*] Mailer.AddRecipient "Webmaster", "webmaster@univen.edu.br"

 

[*] Mailer.Subject= "Email enviado na área de EAD do Site UNIVEN em " & now()

 

[*]

 

[*] Mailer.Bodytext = request.form("msg2") 

 

[*] x = Mailer.SendMail

 

[*] if x = true then

 

[*]  MSG = "MENSAGEM ENVIADA COM SUCESSO!"

 

[*] Else

 

[*]  MSG = " O E-MAIL NÃO FOI ENVIADO, HOUVE ALGUM PROBLEMA TÉCNICO!"

 

[*] end if

 

[*] Response.redirect ("mail-enviar2.asp?msg="&MSG2&"")

 

[*]End if %>

[Marcelo Barcellos 0]

Colega o método AddRecipient é utilizado para indicar os destinatários, portanto, basta fazer um Loop.Sua linha 8 está errada, pois o ADDRecipient é um método e não uma propriedade.Retire isso

Mailer.AddRecipient = request("mail")

E faça isso para mandar os emails.

While Not ORs.EOF    Mailer.AddRecipient  ORs("nome"), ORs("email")ORs.EOFWend

[marcos-rj 0]

segue um exemplo usando o Aspmail:

 

Página Enviando E-mail:

 

ASP

[*]<FORM METHOD="post"ACTION="enviar_email.asp" name="">

 

[*]<p>Digite a baixo o assunto e o texto da mensagem que será enviada a todos os cadastrados.</p>

 

[*]Assunto: <INPUT TYPE="text" NAME="assunto" SIZE="20"> 

 

[*]Texto: <TEXTAREA NAME="texto" cols="25" rows="10"></textarea>

 

[*]<INPUT type="submit" name="Submit" value="Enviar">

 

[*]</FORM> 

 

Abaixo segue a programação!

 

ASP

[*]<% 

 

[*]ConnString="DBQ=e:\aspbrasil\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}"

 

[*]sqlstmt = "select nome, email from cadastro"

 

[*]Set Conn = Server.CreateObject("ADODB.Connection")

 

[*]Conn.Open ConnString

 

[*]set rsquery = conn.execute(sqlstmt) 

 

[*]

 

[*]nr_emails_corretos = 0

 

[*]nr_emails_errados = 0

 

[*]nr_geral = 0

 

[*]

 

[*]

 

[*]while not rsquery.eof

 

[*]

 

[*]Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

 

[*]Mailer.RemoteHost = "smtp.testeaspbrasil.com.br" 

 

[*]Mailer.FromName = "TESTE - E-MAIL"

 

[*]Mailer.FromAddress = "contato@provedor.com.br"

 

[*]Mailer.AddRecipient rsquery("nome"),rsquery("email") 

 

[*]Mailer.Subject=request.form("assunto")

 

[*]Mailer.Bodytext = "Caro " & rsquery("nome") & "," & chr(13) & request.form("texto")

 

[*]x = Mailer.SendMail 

 

[*]

 

[*]if x = true then 

 

[*]MSG = "E-MAIL ENVIADO COM SUCESSO!"

 

[*]nr_emails_corretos = nr_emails_corretos + 1

 

[*]Else

 

[*]MSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO!" 

 

[*]nr_emails_errados = nr_emails_errados + 1 

 

[*]end if 

 

[*]nr_geral = nr_geral + 1 

 

[*]Response.write nr_geral & " - " & MSG 

 

[*]rsquery.movenext

 

[*]

 

[*]

 

[*]wend

 

[*]

 

[*]Response.write "Numero Total de Emails: " & nr_geral & "

 

[*]"

 

[*]Response.write "Numero de Emails enviados: " & nr_emails_corretos & "

 

[*]"

 

[*]Response.write "Numero de Emails não enviados: " & nr_emails_errados & "

 

[*]" 

 

[*]rsquery.close

 

[*]set rsquery = nothing 

 

[*]set conn = nothing 

 

[*]%>