USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Enviando email para os usuários de seu site
Postada em 3/10/2003 por ^HEAVY-METAL^            
Você tem um banco de dados online, com vários nomes cadastrados e gostaria de enviar e-mails a todas essas pessoas? O ASPMail é uma opção simples e fácil. Grande parte dos servidores possuem tal objeto, que é uma dll que pode ser encontrada na serverobjects, e tem como função o envio de e-mail a partir de formulários (vide tutorial anterior) bem como a partir de bases de dados.

Abaixo segue um exemplo:

Enviando Email
<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"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">



</FORM>
Abaixo segue a programação
<%

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 - ASPBRASIL"

Mailer.FromAddress = "contato@aspbrasil.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 & "<br>"

Response.write "Numero de Emails enviados: " & nr_emails_corretos & "<br>"

Response.write "Numero de Emails não enviados: " & nr_emails_errados & "<br>"

rsquery.close

set rsquery = nothing

set conn = nothing

%>

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página