Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mows

[Resolvido] Assinatura de email

Por , em ASP Clássico

Recommended Posts

mows    0

mows
Postado

Boa tarde pessoal.

Procurei, procurei e não achei algo que pudesse me ajudar então decidi criar o tópico.

 

Eu criei uma página ASP que recebe os dados de um certo usuário como Nome, Departamento, Cargo, Email, Telefone, etc.

Mostro esses dados dentro de um template no mesmo ASP que monta a assinatura de email do usuário.

 

O que eu quero saber é o seguinte: como eu posso fazer com que essa assinatura, que eu montei em ASP, possa ser baixada em um formato HTML para que a pessoa possa inserir dentro do seu programa de email favorito?!

 

Esse é o meu código:

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Assinaturas de Email</title>
</head>
<!--#include file="datahora.inc"-->
<%
Set ConSql = server.CreateObject("ADODB.Connection")
ConSql.ConnectionString = Application("ConSql_ConnectionString")
if conSql.State = 0 then ConSql.Open

Set Rs = Server.CreateObject("ADODB.RecordSet")
		StrSql = " SELECT *" & _
			 " FROM ASSINATURASEMAIL " & _
			" WHERE codassinatura = "&Request.QueryString("ca")&" " 
Set Rs = ConSql.Execute(StrSql)
		

%>

<body style="margin:0; padding:0;">

         
         	<table width="570" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>
                <div style="padding:30px; font-family:Arial, Helvetica, sans-serif; font-size:12px; text-align:justify;">
                  <p> </p>
                  <p> </p>
                  <table border="0" cellspacing="0" cellpadding="5" style="font-size:10px">
                    <tr>
                      <td > </td>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                    </tr>
                    <tr>
                      <td colspan="4" ><strong>Atenciosamente,</strong></td>
                    </tr>
                    <tr>
                      <td width="11" > </td>
                      <td width="129"> </td>
                      <td width="11"> </td>
                      <td width="193"> </td>
                    </tr>
                    <tr>
                      <td bgcolor="#00552c"> </td>
                      <td colspan="3"><%Response.Write(" "&Rs("nome")&" ")%></td>
                      </tr>
                    <tr>
                      <td bgcolor="#D1D4D4"> </td>
                      <td colspan="3"><%Response.Write(" "&Rs("cargo")&" ")%></td>
                      </tr>
                    <tr>
                      <td> </td>
                      <td colspan="3"><b><%Response.Write(" "&Rs("setor")&" ")%></b></td>
                      </tr>
                    <tr>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                    </tr>
                    <%if rs("website") <> "" then%>
                    <tr>
                      <td>   <img src="images/flecha.gif" alt="Site" /></td>
                      <td colspan="3"><a href="http://<%Response.Write(" "&Rs("website")&" ")%>" target="_blank"><%Response.Write(" "&Rs("website")&" ")%></a> <</td>
                      </tr>
                      <%else%>
                      <%end if%>
                    <tr>
                      <td><img  src="images/mail_.gif" alt="E-mail" ></td>
                      <td><a href="mailto:<%Response.Write(" "&Rs("email1")&" ")%>" style="color:#0D532D"><%Response.Write(" "&Rs("email1")&" ")%></a></td>
                      <td><img src="images/phone_.gif" alt="Telefone"/></td>
                      <td><%Response.Write(" "&Rs("telefone1")&" ")%></td>
                    </tr>
                    <%if rs("fax") <> "" or rs("telefone2") <> "" then%>
                    <tr>
                      <td height="21"><img src="images/fax-icon.gif" alt="Fax"/></td>
                      <td><%Response.Write(" "&Rs("fax")&" ")%></td>
                      <td><img src="images/icon_cel.gif" alt="Celular"/></td>
                      <td><%Response.Write(" "&Rs("telefone2")&" ")%></td>
                    </tr>
                     <%else%>
                      <%end if%>
                  </table>
                  <p><a href="" target="_blank"><img src="images/rodape.gif" width="570" height="116" border="0" /></a></p>
                </div>    </td>
              </tr>
            </table>
            
            <textarea name="" cols="" rows="" style="width:570px;height:400px;">
            <table width="570" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>
                <div style="padding:30px; font-family:Arial, Helvetica, sans-serif; font-size:12px; text-align:justify;">
                  <p> </p>
                  <p> </p>
                  <table border="0" cellspacing="0" cellpadding="5" style="font-size:10px">
                    <tr>
                      <td > </td>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                    </tr>
                    <tr>
                      <td colspan="4" ><strong>Atenciosamente,</strong></td>
                    </tr>
                    <tr>
                      <td width="11" > </td>
                      <td width="129"> </td>
                      <td width="11"> </td>
                      <td width="193"> </td>
                    </tr>
                    <tr>
                      <td bgcolor="#00552c"> </td>
                      <td colspan="3"><%Response.Write(" "&Rs("nome")&" ")%></td>
                      </tr>
                    <tr>
                      <td bgcolor="#D1D4D4"> </td>
                      <td colspan="3"><%Response.Write(" "&Rs("cargo")&" ")%></td>
                      </tr>
                    <tr>
                      <td> </td>
                      <td colspan="3"><b><%Response.Write(" "&Rs("setor")&" ")%></b></td>
                      </tr>
                    <tr>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                    </tr>
                    <%if rs("website") <> "" then%>
                    <tr>
                      <td>   <img src="images/flecha.gif" alt="Site" /></td>
                      <td colspan="3"><a href="http://<%Response.Write(" "&Rs("website")&" ")%>" target="_blank"><%Response.Write(" "&Rs("website")&" ")%></a> <</td>
                      </tr>
                      <%else%>
                      <%end if%>
                    <tr>
                      <td><img  src="images/mail_.gif" alt="E-mail" ></td>
                      <td><a href="mailto:<%Response.Write(" "&Rs("email1")&" ")%>" style="color:#0D532D"><%Response.Write(" "&Rs("email1")&" ")%></a></td>
                      <td><img src="images/phone_.gif" alt="Telefone"/></td>
                      <td><%Response.Write(" "&Rs("telefone1")&" ")%></td>
                    </tr>
                    <%if rs("fax") <> "" or rs("telefone2") <> "" then%>
                    <tr>
                      <td height="21"><img src="images/fax-icon.gif" alt="Fax"/></td>
                      <td><%Response.Write(" "&Rs("fax")&" ")%></td>
                      <td><img src="images/icon_cel.gif" alt="Celular"/></td>
                      <td><%Response.Write(" "&Rs("telefone2")&" ")%></td>
                    </tr>
                     <%else%>
                      <%end if%>
                  </table>
                  <p><a href="" target="_blank"><img src="rodape.gif" width="570" height="116" border="0" /></a></p>
                </div>    </td>
              </tr>
            </table>
            </textarea>
         
        
         <a href="assinatura.html">DOWNLOAD HTML</a>
        
 
</body>

</html>

obs: monto o código dentro de um textarea, para que a pessoa possa copiar o mesmo. Mas meu intuito é que tenha um link de download para ela baixar o HTML pronto.

 

Agradeço a ajuda.

 

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

a pessoa não irá utilizar sua página para envio de email, mas sim um programa de email tipo outlook, você fala ?!?!?!

 

nesse caso você pode colocar apenas a url de onde terá a assinatura, ou seja, os dados da pessoa

Compartilhar este post

Link para o post
Compartilhar em outros sites

mows    0

mows
Postado

O que eu quero é montar um arquivo HTMl para que ela possa colocar como assinatura padrão no Thunderbird ou Outlook.

Quero que a partir do ASP ela possa baixar esse HTML com os dados preenchidos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

mows    0

mows
Postado

Valeu Vinicius, esse FSO vai ser bem útil.

 

Depois eu posto aqui como ficou o código.

 

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

mas o usuário terá que ele config. a assinatura no gerenciador de email, depois que ele colocar a assinatura, na qual ela terá acesso a internet, daí sim o code pode baixar os dados via ASP

Compartilhar este post

Link para o post
Compartilhar em outros sites

mows    0

mows
Postado

Bom, é isso aí pessoal. Usei o FSO e deu certo.

Useu variáveis trazidas do banco para fomentar as assinaturas.

Assim um responsável tem uma lista de nomes de funcionários, clica no nome e ele remete diretamente a assinatura pronta. O mesmo baixa o HTML e envia pronto para o usuário.

 

Valeu a ajuda.

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Assinaturas de Email</title>
</head>
<!--#include file="datahora.inc"-->
<%
Set ConSql = server.CreateObject("ADODB.Connection")
ConSql.ConnectionString = Application("ConSql_ConnectionString")
if conSql.State = 0 then ConSql.Open

Set Rs = Server.CreateObject("ADODB.RecordSet")
		StrSql = " SELECT *" & _
			 " FROM ASSINATURASEMAIL " & _
			 " WHERE codassinatura = "&Request.QueryString("ca")&" " 
Set Rs = ConSql.Execute(StrSql)

if Rs.EOF then
strNome = Rs("nome")
end if

Set Fso = CreateObject("Scripting.FileSystemObject") 
 
Set Cria = Fso.CreateTextFile("d:\caminho\assinatura_"&Rs("codassinatura")&".html",True) 
 
Cria.WriteLine "<table width=""570"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Cria.WriteLine "<tr><td>"
Cria.WriteLine "<div style=""padding:30px; font-family:Arial, Helvetica, sans-serif; font-size:12px; text-align:justify;"">"
Cria.WriteLine "<p> </p>"
Cria.WriteLine "<p> </p>"
Cria.WriteLine "<table border=""0"" cellspacing=""0"" cellpadding=""5"" style=""font-size:10px"">"
Cria.WriteLine "<tr>"
Cria.WriteLine "<td > </td>"
Cria.WriteLine "<td> </td>"
Cria.WriteLine "<td> </td>"
Cria.WriteLine "<td> </td>"
Cria.WriteLine "</tr>"
Cria.WriteLine "<tr>"
Cria.WriteLine "<td colspan=""4"" ><strong>Atenciosamente,</strong></td>"
Cria.WriteLine "</tr>"
Cria.WriteLine "<tr>"
Cria.WriteLine "<td width=""11"" > </td>"
Cria.WriteLine "<td width=""129""> </td>"
Cria.WriteLine "<td width=""11""> </td>"
Cria.WriteLine "<td width=""193""> </td>"
Cria.WriteLine "</tr>"
Cria.WriteLine "<tr>"
Cria.WriteLine "<td bgcolor=""#00552c""> </td>"
Cria.WriteLine "<td colspan=""3""> "&Rs("nome")&" </td>"
Cria.WriteLine "</tr>"
Cria.WriteLine "<tr>"
Cria.WriteLine "<td bgcolor=""#D1D4D4""> </td>"
Cria.WriteLine "<td colspan=""3"">"&Rs("cargo")&" </td>"
Cria.WriteLine "</tr>"
Cria.WriteLine "<tr>"
Cria.WriteLine "<td> </td>"
Cria.WriteLine "<td colspan=""3""><b> "&Rs("setor")&" </b></td>"
Cria.WriteLine "</tr>"
Cria.WriteLine "<tr>"
Cria.WriteLine "<td> </td>"
Cria.WriteLine "<td> </td>"
Cria.WriteLine "<td> </td>"
Cria.WriteLine "<td> </td>"
Cria.WriteLine "</tr>"

if rs("website") <> "" then

	Cria.WriteLine "<tr>"
	Cria.WriteLine "<td><img src=""/images/flecha.gif"" alt=""Site"" /></td>"
	Cria.WriteLine "<td colspan=""3""><a href=http://"&Rs("website")&" target=_blank>"&Rs("website")&"</a> <</td>"
	Cria.WriteLine "</tr>"

else

end if

Cria.WriteLine "<tr>"
Cria.WriteLine "<td><img  src=""/images/mail_.gif"" alt=""E-mail"" ></td>"
Cria.WriteLine "<td><a href=""mailto:"&Rs("email1")&"  style=""color:#0D532D""> "&Rs("email1")&" </a></td>"
Cria.WriteLine "<td><img src=""/images/phone_.gif"" alt=""Telefone""/></td>"
Cria.WriteLine "<td>"&Rs("telefone1")&" </td>"
Cria.WriteLine "</tr>"

if rs("fax") <> "" or rs("telefone2") <> "" then

	Cria.WriteLine "<tr>"
	Cria.WriteLine "<td height=""21""><img src=""/images/fax-icon.gif"" alt=""Fax""/></td>"
	Cria.WriteLine "<td>"&Rs("fax")&" </td>"
	Cria.WriteLine "<td><img src=""/images/icon_cel.gif"" alt=""Celular""/></td>"
	Cria.WriteLine "<td>"&Rs("telefone2")&" </td>"
	Cria.WriteLine "</tr>"

else

end if

Cria.WriteLine "</table>"
Cria.WriteLine "<p><a href=""http://www.site.com.br/""'>http://www.site.com.br/"" target=""_blank""><img src=""/images/rodape.gif"" width=""570"" height=""116"" border=""0"" /></a></p>"
Cria.WriteLine "</div>    </td>"
Cria.WriteLine "</tr>"
Cria.WriteLine "</table>"
 

Cria.Close 
 
Set Fso = nothing 
Set Cria = nothing 
		

%>

<body style="margin:0; padding:0;">

         
         	<table width="570" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>
                <div style="padding:30px; font-family:Arial, Helvetica, sans-serif; font-size:12px; text-align:justify;">
                  <p> </p>
                  <p> </p>
                  <table border="0" cellspacing="0" cellpadding="5" style="font-size:10px">
                    <tr>
                      <td > </td>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                    </tr>
                    <tr>
                      <td colspan="4" ><strong>Atenciosamente,</strong></td>
                    </tr>
                    <tr>
                      <td width="11" > </td>
                      <td width="129"> </td>
                      <td width="11"> </td>
                      <td width="193"> </td>
                    </tr>
                    <tr>
                      <td bgcolor="#00552c"> </td>
                      <td colspan="3"><%Response.Write(" "&Rs("nome")&" ")%></td>
                      </tr>
                    <tr>
                      <td bgcolor="#D1D4D4"> </td>
                      <td colspan="3"><%Response.Write(" "&Rs("cargo")&" ")%></td>
                      </tr>
                    <tr>
                      <td> </td>
                      <td colspan="3"><b><%Response.Write(" "&Rs("setor")&" ")%></b></td>
                      </tr>
                    <tr>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                    </tr>
                    <%if rs("website") <> "" then%>
                    <tr>
                      <td>   <img src="images/flecha.gif" alt="Site" /></td>
                      <td colspan="3"><a href="http://<%Response.Write(" "&Rs("website")&" ")%>" target="_blank"><%Response.Write(" "&Rs("website")&" ")%></a> <</td>
                      </tr>
                      <%else%>
                      <%end if%>
                    <tr>
                      <td><img  src="images/mail_.gif" alt="E-mail" ></td>
                      <td><a href="mailto:<%Response.Write(" "&Rs("email1")&" ")%>" style="color:#0D532D"><%Response.Write(" "&Rs("email1")&" ")%></a></td>
                      <td><img src="images/phone_.gif" alt="Telefone"/></td>
                      <td><%Response.Write(" "&Rs("telefone1")&" ")%></td>
                    </tr>
                    <%if rs("fax") <> "" or rs("telefone2") <> "" then%>
                    <tr>
                      <td height="21"><img src="/images/fax-icon.gif" alt="Fax"/></td>
                      <td><%Response.Write(" "&Rs("fax")&" ")%></td>
                      <td><img src="/images/icon_cel.gif" alt="Celular"/></td>
                      <td><%Response.Write(" "&Rs("telefone2")&" ")%></td>
                    </tr>
                     <%else%>
                      <%end if%>
                  </table>
                  <p><a href="http://www.site.com.br/" target="_blank"><img src="/images/rodape.gif" width="570" height="116" border="0" /></a></p>
                </div>    </td>
              </tr>
            </table>
            
            <textarea name="" cols="" rows="" style="width:570px;height:400px;">
            <table width="570" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>
                <div style="padding:30px; font-family:Arial, Helvetica, sans-serif; font-size:12px; text-align:justify;">
                  <p> </p>
                  <p> </p>
                  <table border="0" cellspacing="0" cellpadding="5" style="font-size:10px">
                    <tr>
                      <td > </td>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                    </tr>
                    <tr>
                      <td colspan="4" ><strong>Atenciosamente,</strong></td>
                    </tr>
                    <tr>
                      <td width="11" > </td>
                      <td width="129"> </td>
                      <td width="11"> </td>
                      <td width="193"> </td>
                    </tr>
                    <tr>
                      <td bgcolor="#00552c"> </td>
                      <td colspan="3"><%Response.Write(" "&Rs("nome")&" ")%></td>
                      </tr>
                    <tr>
                      <td bgcolor="#D1D4D4"> </td>
                      <td colspan="3"><%Response.Write(" "&Rs("cargo")&" ")%></td>
                      </tr>
                    <tr>
                      <td> </td>
                      <td colspan="3"><b><%Response.Write(" "&Rs("setor")&" ")%></b></td>
                      </tr>
                    <tr>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                      <td> </td>
                    </tr>
                    <%if rs("website") <> "" then%>
                    <tr>
                      <td>   <img src="/images/flecha.gif" alt="Site" /></td>
                      <td colspan="3"><a href="http://<%Response.Write(" "&Rs("website")&" ")%>" target="_blank"><%Response.Write(" "&Rs("website")&" ")%></a> <</td>
                      </tr>
                      <%else%>
                      <%end if%>
                    <tr>
                      <td><img  src="/images/mail_.gif" alt="E-mail" ></td>
                      <td><a href="mailto:<%Response.Write(" "&Rs("email1")&" ")%>" style="color:#0D532D"><%Response.Write(" "&Rs("email1")&" ")%></a></td>
                      <td><img src="/images/phone_.gif" alt="Telefone"/></td>
                      <td><%Response.Write(" "&Rs("telefone1")&" ")%></td>
                    </tr>
                    <%if rs("fax") <> "" or rs("telefone2") <> "" then%>
                    <tr>
                      <td height="21"><img src="/images/fax-icon.gif" alt="Fax"/></td>
                      <td><%Response.Write(" "&Rs("fax")&" ")%></td>
                      <td><img src="/images/icon_cel.gif" alt="Celular"/></td>
                      <td><%Response.Write(" "&Rs("telefone2")&" ")%></td>
                    </tr>
                     <%else%>
                      <%end if%>
                  </table>
                  <p><a href="http://www.site.com.br/" target="_blank"><img src="/images/rodape.gif" width="570" height="116" border="0" /></a></p>
                </div>    </td>
              </tr>
            </table>
            </textarea>
         
        
         <%
		 Response.Write("<a href=assinatura_"&Rs("codassinatura")&".html>DOWNLOAD HTML</a>")
		 %>
        
 
</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito