Hoje em dia, a maioria dos programas de recebimento de e-mail já aceitam tags HTML.
Levando em consideração tal número, porque não enviar e-mails utilizando essas tags? Essas tags permitem a inserção de imagens, links, mudança de cor e tamanho das fontes, permitindo a confecção de e-mails mais bonitos e organizados. Abaixo, segue um exemplo utilizando o objeto ASPMAIL, da ServerObjects.
Abaixo segue um exemplo:
Enviando E-mail
No formulário abaixo, é permitida a inserção de TAGS HTML
Abaixo segue a programação!
<%
ConnString="DBQ=e:aspbrasil este.mdb;Driver={Microsoft Access Driver (*.mdb)}"
sqlstmt = "select nome, email from cadastro"
Set Conn = Server.CreateObject("ADODB.Connection")
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.ContentType = "text/html"
Mailer.RemoteHost = "smtp.testeaspl.com.br"
Mailer.FromName = "TESTE - ASPL"
Mailer.FromAddress = "
[email protected]"
Mailer.AddRecipient rsquery("nome"),rsquery("email")
Mailer.Subject=request.form("assunto")
Mailer.Bodytext = "Caro
" & rsquery("nome") & "," & 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
%>