Enviando e-mails a partir de consultas a bancos de Dados

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 E-mail

<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!

<%
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 & "
"
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
%>