Enviando e-mails com CDONTS
Abaixo, um exemplo de envio de e-mails para pessoas cadastradas em um banco de dados, utilizando o componente CDONTS, objeto integrante do IIS 4, e que tem, entre outras funções, a função de enviar e-mails.
Abaixo segue um exemplo: Enviando E-mail
Digite a baixo o assunto e o texto da mensagem que será enviada a todos os cadastrados.
<form method="post" action="enviar_email.asp" name="">
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!
<%
function enviar_email(de_email,de_nome,para_email,para_nome,assunto,texto)
Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = de_email
objmail.to = para_email
objmail.subject = assunto
objmail.body = texto
objmail.send
Response.Write "Email enviado para : " & para_nome & " || " & para_emailtime & "
set objmail = nothing
end function
ConnString="DBQ=e:\aspbrasil\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}"
sqlstmt = "select nome, email from cadastro"
Set Conn = Server.CreateObject("ADODB.Connection")
set rsquery = conn.execute(sqlstmt)
nr_geral = 0
assunto = request.form("assunto")
texto = replace(request.form("texto"),chr(13),"
")
while not rsquery.eof
enviar_email("dangelo@aspbrasil.com.br","ASPBRASIL",rsquery("email"),rsquery("nome"),assunto,texto)
nr_geral = nr_geral + 1
wend
Response.write
"Numero Total de Emails: " & nr_geral & "
rsquery.close
set rsquery = nothing
set conn = nothing
%>