Tô fazendo +- assim:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="./includes/conex.asp" -->
<%
Set rs = conexao.execute("select * from teste_emails")
titulo = Request("titulo")
msg = Replace(Request("msg"),VbCrLf,"<br>")
%>
<html>
<head>
<title>Untitled Document</title>
</head>
<body>
<%
while not rs.eof
html_email="<html>"&vbnewline
html_email=html_email+"<head>"&vbnewline
html_email=html_email+"<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>"&vbnewline
html_email=html_email+"<title>Site</title>"&vbnewline
html_email=html_email+"<table bgcolor=c0c0c0 width=500>"&vbnewline
html_email=html_email+"<tr>"&vbnewline
html_email=html_email+"<td><b>"&titulo&"<b></td>"&vbnewline
html_email=html_email+"</tr>"&vbnewline
html_email=html_email+"</table>"&vbnewline
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Meu Site."
Mailer.FromAddress= "contato@site.com.br"
Mailer.RemoteHost = "smtp2.locaweb.com.br"
Mailer.AddRecipient rs("emails"), rs("emails")
Mailer.Subject = Request("assunto")
Mailer.ContentType = "text/html"
Mailer.Bodytext = html_email
If Mailer.SendMail Then
Response.Write "Mensagem enviada com sucesso "& rs("emails") & "<br>"
Else
Response.Write "Erro " & Mailer.Response
End If
Set Mailer = Nothing
rs.movenext
wend
%>
</body>
</html>
Se alguém souber como se faz poste aí










