|
|
|
|
|
|
|
|
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'> </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'> </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> </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
%>
|
|
|
|
|
![http://www.minhaempresa.com.br/figuras/news_back.jpg'>"](http://www.minhaempresa.com.br/figuras/news_back.jpg'>"){kind=link}