Olá! Wednesday, 19 de June de 2019.



Dicas CódigoFonte.net
Sunday, 26 de October de 2003

Enviando e-mails com tags HTML

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

Digite a baixo o assunto e o texto da mensagem que será enviada a todos os cadastrados.

Assunto: Texto:

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

Comentários do artigo [Novo comentário]

Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o login


Gostou do CódigoFonte.net? Quer indicar a um amigo?
Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:


CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010