USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Enviando e-mail estilo Html para clientes do site
Postada em 28/12/2004 por Martini         
Enviando e-mail estilo Html para clientes do site


Eu criei uma página Html para meus e-mails, peguei o código Html
e coloquei na mensagem ...


***************************************************
Arquivo: Funcoes.asp

'Função para tirar os ENTER
Public Function TiraEnter(QTexto)
  Dim y, vString1, vString2, vPosicao
  vString1 = Chr(13) + Chr(10)
  vString2 = "<br>" '"§¢"
  For y = 1 To Len(vString1)
    vPosicao = InStr(1, QTexto, Mid(vString1, y, 1), vbBinaryCompare)
    If vPosicao <> 0 Then
      If Mid(QTexto, vPosicao, 1) = Chr(13) Then
        QTexto = Mid(QTexto, 1, vPosicao - 1) & Mid(vString2, y, 2) & Mid(QTexto, vPosicao + 1, Len(QTexto))
      Else
        QTexto = Mid(QTexto, 1, vPosicao - 1) & Mid(vString2, y + 1, 2) & Mid(QTexto, vPosicao + 1, Len(QTexto))
      End If
      y = y - 1
    End If
  Next
  TiraEnter = QTexto
End Function

Public Function DataPortugues()
     dim Dia, Data, Mes
     Dia = weekday(date)
     Mes = month(date)
     'vamos achar o dia
     select case Dia
       case 1 'se for domingo
               Data = "Domingo, "
       case 2 'se segunda-feira
               Data = "Segunda-Feira, "
       case 3 'se for terça-feira
               Data = "Terça-Feira, "
       case 4 'se for quarta-geira
               Data = "Quarta-Feira, "
       case 5 'se for quinta-feira
               Data = "Quinta-Feira, "
       case 6 'se for sexta-feira
               Data = "Sexta-Feira, "
       case 7 'se for sabado
               Data = "Sábado, "                    
     end select               
     'vamos achar o mes
     select case Mes
       case 1 'se for janeiro
               Data = Data & day(date) & " de janeiro de " & year(date)
       case 2 'se for fevereiro
               Data = Data & day(date) & " de fevereiro de " & year(date)
       case 3 'se for março
               Data = Data & day(date) & " de março de " & year(date)
       case 4 'se for abril
               Data = Data & day(date) & " de abril de " & year(date)
       case 5 'se for maio
               Data = Data & day(date) & " de maio de " & year(date)
       case 6 'se for junho
               Data = Data & day(date) & " de junho de " & year(date)
       case 7 'se for julho
               Data = Data & day(date) & " de julho de " & year(date)
       case 8 'se for agosto
               Data = Data & day(date) & " de agosto de " & year(date)
       case 9 'se for setembro
               Data = Data & day(date) & " de setembro de " & year(date)
       case 10 'se for outubro
               Data = Data & day(date) & " de outubro de " & year(date)
       case 11 'se for novembro
               Data = Data & day(date) & " de novembro de " & year(date)
       case 12 'se for dezembro
               Data = Data & day(date) & " de dezembro de " & year(date)
     end select     
     DataPortugues = Data                         
End Function


***************************************************
Arquivo: Envia_email_chk.asp

<!--#include file="./Conexao_bd_adm.asp" -->
<!--#include file="../Funcoes.asp" -->
<%
  if session ("Usuario") = "" then
    Response.Redirect("Login.asp")
  end if
%>
<%  
Dim Assunto, Mensagem, Destino, Email, Erro, rst, SQL, Mensagem1, DataExtenso
DataExtenso = DataPortugues()
Assunto = trim(Request("Assunto"))
Mensagem = trim(Request("Mensagem"))
Destino = trim(Request("Destino"))
Mensagem = Mensagem
'& vbcrlf & vbcrlf & "Minha Empresa - News" & vbcrlf & "Para deixar de receber o News: " & "http://www.minhaempresa.com.br/Excluir_Email.asp"
On error resume next
Set Email = Server.CreateObject("aspSmartMail.SmartMail")
'Mail Server
'***********  
Email.Server = "mail.centersul.inf.br"
'From
'****
Email.SenderName = "Minha Empresa - News"
Email.SenderAddress = "vendas@minhaempresa.com.br"

'mensagem html
Email.ContentType = "text/html"



Email.Recipients.Add Destino, "Clientes News"
'Message
'*******
Email.Subject = Assunto

'e-mail em html
Mensagem1 = "<html>" & vbcrlf & "<style type='text/css'>" & vbcrlf & "<!--" & vbcrlf & ".Texto {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf
Mensagem1 = Mensagem1 & " font-size: 11px;" & vbcrlf & " font-weight: normal;" & vbcrlf & " color: #000000;" & vbcrlf & " font-style: bold;" & vbcrlf
Mensagem1 = Mensagem1 & "}" & vbcrlf & ".TextoPromocao {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 17px;" & vbcrlf
Mensagem1 = Mensagem1 & " font-weight: normal;" & vbcrlf & " color: #000000;" & vbcrlf & " font-style: bold;" & vbcrlf & "}" & vbcrlf & "a:link.link1 {" & vbcrlf
Mensagem1 = Mensagem1 & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf & " text-decoration: none;" & vbcrlf
Mensagem1 = Mensagem1 & "}" & vbcrlf & "a:visited.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf
Mensagem1 = Mensagem1 & " text-decoration: none;" & vbcrlf & "}" & vbcrlf & "a:hover.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf
Mensagem1 = Mensagem1 & " color: #225384;" & vbcrlf & " text-decoration: underline;" & vbcrlf & "}" & vbcrlf & "a:active.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf
Mensagem1 = Mensagem1 & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf & " text-decoration: none;" & vbcrlf & "}" & vbcrlf & "-->" & vbcrlf & "</style>" & vbcrlf & "<head>" & vbcrlf
Mensagem1 = Mensagem1 & "<title>Minha Empresa - News</title>" & vbcrlf & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & vbcrlf & "</head>" & vbcrlf
Mensagem1 = Mensagem1 & "<body link='#225384' vlink='#225384' alink='#225384'>" & vbcrlf & "<table width='75%' height='379' border='0' align='center'>" & vbcrlf & "  <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "    <td height='113' valign='top'><img src='http://www.minhaempresa.com.br/figuras/news_banner.jpg' width='598' height='110'></td>" & vbcrlf & "  </tr>" & vbcrlf & "  <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "    <td height='79' valign='top'><table width='99%' border='0'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td background='http://www.minhaempresa.com.br/figuras/news_back.jpg'><font color='#225384'><strong>" & DataExtenso & "</strong></font></td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'>&nbsp;</td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "          <td height='22'><font class='TextoPromocao'>" & TiraEnter(Mensagem) & "</font></td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'>&nbsp;</td>" & vbcrlf & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & "  </tr>" & vbcrlf & "  <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "    <td valign='top'><table width='99%' border='0' cellpadding='0' cellspacing='0' background='http://www.minhaempresa.com.br/figuras/news_back.jpg'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'><strong>Minha Empresa - Meu Slogam</strong></font></td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Endereço da minha empresa - Bairro - Cidade - UF - CEP: 00000-000</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>"  & vbcrlf
Mensagem1 = Mensagem1 & "          <td><font class='Texto'>E-mail:</font> <a href='mailto:vendas@minhaempresa.com.br' class='link1'>vendas@minhaempresa.com.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Homepage:</font> <a href='http://www.minhaempresa.com.br' title='www.minhaempresa.com.br' class='link1'>www.minhaempresa.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>"  & vbcrlf
Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Telefones: 0 xx 51 543 1645 - 0 xx 51 543 3341</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td>&nbsp;</td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Para cancelar a assinatura do News</font> <a href='http://www.minhamempresa.com.br/Excluir_email_chk.asp?Email=" & Destino & "' title='Clique Aqui' class='link1'>Clique Aqui</a></td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & "  </tr>" & vbcrlf & "</table>" & vbcrlf & "</body>" & vbcrlf & "</html>"

  
  
Email.Body = Mensagem1
'Send the message
'****************
Email.SendMail
%>
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página