Ir ao conteúdo
  • Cadastre-se
Rui Albert da Silva

Variavel em html

Recommended Posts

Pessoal,

Boa noite,

 

Sou iniciante no forum e nao sei se estou postando o pedido de ajuda da forma certa, ou no lugar certo.

 

Tenho um código em HTML que dispara uma mala direta com dados oriundos de tabela access e defino um layout padrão. (recebi o código pronto).

Linha do código que preciso de ajuda:

 

<tr>
  <td width='30'><p></p></td>        
  <td width='541' valign='top'>GESTOR (A)</span> <td width='30'><p> </p></td>      
</tr>
<tr>
  <td width='30'><p></p></td>        
  <td width='541'><p></p></td>
  <td width='30'><p></p></td>
</tr>  

 

No lugar da palavra GESTOR(A) eu gostaria de colocar uma variável onde seria colocado o nome do destinatário. Isso é possivel? Podem me dizer como fazer isso?

 

Já tenho o nome do destinatário atraves de um comando SQL (select) que faço da tabela.

 

Agradeço a atenção.

Editado por dif
Inserir o código usando o botão CODE <>

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Rui Albert da Silva Olá, seja bem vindo em nosso Fórum do Clube do Hardware.

 

Sim, dá!  Mas não com HTML. 

Precisas usar uma linguagem de programação server-side por exemplo o PHP.

 

Tente fazer desta forma:

<table>
<?php
$con = odbc_connect(“access”,””,””) or die(“Erro na conexão
com o Database”); 
$sql = odbc_exec($con,”SELECT * FROM tb_clientes”); 
$i=0; 
  
  
  while(odbc_fetch_row($sql)) : 
    $i++; 
    $nome = odbc_result($sql,”nome”); 
     echo"
  	<tr>
  	   <td width='30'><p></p></td>        
  	   <td width='541' valign='top'><span> $nome </span> <td width='30'><p> </p></td>      
	</tr>
  
  ";
endwhile; 
   
?>
</table>  

Embora, o access não seja recomendado.. mas sim o MySQL..  o exemplo foi tirado desta fonte: http://imasters.com.br/artigo/299/php/php-com-banco-de-dados-access?trace=1519021197&source=single

 

PS: é só um exemplo usando seu código que postou no inicio do tópico.

Veja que a variável $nome recebe o valor do banco.. e é mostrada dentro da tabela.

 

Editado por dif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Desculpa, não faço ideia de como encaixar isso no meu codigo completo.

 

Segue completo se puder me ajudar agradeço muito!

Public Function envia_email_testando() As String
'by André Luiz camargo - Fiz este modulo para enviar email como uma mala direta colocando os dados em HTML no corpo do email. 19/06/2014
Dim db As dao.Database
Dim RS As dao.Recordset
Dim rsn As dao.Recordset
Dim OutApp As Object
Dim OutMail As Object
Dim msg_email As String
Dim A As String
Dim Gestor As String
Dim z As String
Dim e As String
Dim r As String
'' abertura da base de envio
Set db = CurrentDb
'' montagem da query.
Set RS = db.OpenRecordset("SELECT TBL_EMAIL_COORD.FUNC_COORD, TBL_EMAIL_COORD.EMAIL FROM TBL_EMAIL_COORD GROUP BY TBL_EMAIL_COORD.FUNC_COORD, TBL_EMAIL_COORD.EMAIL ORDER BY TBL_EMAIL_COORD.FUNC_COORD;", 2)
Gestor = RS![FUNC_COORD]
 Set rsn = db.OpenRecordset("SELECT TBL_EMAIL_COORD.UNID_GESTOR, TBL_EMAIL_COORD.Fora_Prazo, TBL_EMAIL_COORD.PERC_FORAPRAZO,TBL_EMAIL_COORD.FUNC_COORD, TBL_EMAIL_COORD.EMAIL FROM TBL_EMAIL_COORD GROUP BY TBL_EMAIL_COORD.UNID_GESTOR, TBL_EMAIL_COORD.Fora_Prazo, TBL_EMAIL_COORD.PERC_FORAPRAZO, TBL_EMAIL_COORD.FUNC_COORD, TBL_EMAIL_COORD.EMAIL HAVING (((TBL_EMAIL_COORD.FUNC_COORD)='" & Gestor & "')) ORDER BY TBL_EMAIL_COORD.FUNC_COORD;", 2)
While Not RS.EOF
''variavel de envio
msg_email = "<meta http-equiv='Content-Type' content='text/html; charset=ISO-8859-1' /><style type='text/css'>body {font-family:Arial, Helvetica, sans-serif; font-size:9pt;} " & _
"table.hovertable {  font-family: verdana,arial,sans-serif;  font-size:11px; color:#333333;  border-width: 1px;  border-color: #999999;  border-collapse: collapse;} " & _
"table.hovertable th {background-color:#D9D9F3;  border-width: 1px;  padding: 8px;   border-style: solid;    border-color: #F5F5F5;} " & _
"table.hovertable tr {   background-color:#E6E8FA;}table.hovertable td { border-width: 1px;  padding: 1px;   border-style: solid;    border-color: #F5F5F5;}</style> " & _
"<div align='center'><table border='1' cellspacing='0' cellpadding='0' style='border-collapse:collapse; border-color:#CCC'>  <tr> " & _
"<td><table border='0' cellspacing='0' cellpadding='0' width='800'><tr>" & _
"<td colspan='3' align='center'><p><img src='https: height='137' /></p></td> " & _
"</tr><tr><td width='30'><p>&nbsp;</p></td>        <td width='541'><p>&nbsp;</p></td>        <td width='30'><p>&nbsp;</p>" & _
"<tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541' valign='top' style='font-family:Arial, Helvetica, sans-serif; font-size:26px; color:#FF8000'><p>Governança de SS's</p></td>        <td width='30'><p>&nbsp;</p></td>      </tr> " & _
"<tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541'><p>&nbsp;</p></td>        <td width='30'><p>&nbsp;</p></td>      </tr> " & _
"<tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541'><p>&nbsp;</p></td>        <td width='30'><p>&nbsp;</p></td>      </tr> " & _
"<tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541' valign='top'>GESTOR (A)</span> <td width='30'><p>&nbsp;</p></td>      </tr><tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541'><p>&nbsp;</p></td>        <td width='30'><p>&nbsp;</p></td>      </tr> " & _
"<tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541' valign='top'>Esse material tem por objetivo reforçar que existem Solicitações de Serviços (SS's) com o prazo de tratativa excedido. </strong></p></td>        <td width='30'><p>&nbsp;</p></td>      </tr><p>&nbsp;</p></td>      </tr>" & _
"<tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541' valign='top'>Sua atuação é fundamental para manter o compromisso assumido com o cliente.</strong></p></td>        <td width='30'><p>&nbsp;</p></td>      </tr><p>&nbsp;</p></td>      </tr>" & _
"<tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541' valign='top'><p><strong>Segue relação das Solicitações com prazo de tratativa (SLA) excedido:</strong></p></td>        <td width='30'><p>&nbsp;</p></td>      </tr><tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541'><p>&nbsp;</p></td>        <td width='30'><p>&nbsp;</p></td>      </tr> " & _
"<p>&nbsp;</p></td><td width='30' rowspan='3'><p>&nbsp;</p></td>      </tr>      <tr> " & _
"<td align='center' valign='top'><table width='100%' class='hovertable'> " & _
"<tr><th>Coordenação</th><th>Qtde. SS's Fora do Prazo</th><th>% Fora do Prazo</th>"
While Not rsn.EOF
'Inventei esta variavel para converter o campo percentual fora do prazo
'Convetido no formato porcentagem
z = rsn![PERC_FORAPRAZO] * 100
e = Format(z, "#.00")
r = e & "%"
If rsn.EOF = True Then GoTo 1
msg_email = msg_email & "<tr>" & _
    "<td align = 'center'>" & rsn![UNID_GESTOR] & "</td>" & _
    "<td align = 'center' >" & rsn![FORA_PRAZO] & "</td>" & _
    "<td align = 'center' >" & r & "</td>" & _
    "</tr>"
rsn.MoveNext
Wend
msg_email = msg_email & "</table><p>&nbsp;</p></td></tr><tr><td valign='top'>" & _
"<tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541' valign='top'>Em caso de dúvidas, entre em contato através da chave: GER MIDDLE AREA PESSOAS</strong></p></td>        <td width='30'><p>&nbsp;</p></td>      </tr><tr>        <td width='30'><p>&nbsp;</p></td>        <td width='541'><p>&nbsp;</p></td>        <td width='30'><p>&nbsp;</p></td>      </tr> " & _
"</td></tr><tr><td width='30'><p>&nbsp;</p></td>" & _
"</td></tr><tr><td width='30'><p>&nbsp;</p></td>" & _
"<td width='141' valign='top'><p><strong>Gerência </strong></p></td><td width='30'><p>&nbsp;</p></td>" & _
"</td></tr><tr><td width='30'><p>&nbsp;</p></td>" & _
"<tr>        <td width='30' rowspan='1' valign='rigth'><p>&nbsp;</p></td>        <td width='541' valign='rigth'><p>                                            ************************ EMAIL AUTOMÁTICO, FAVOR NÃO RESPONDER *************************<p>&nbsp;</p>" & _
"</tr><tr><td colspan='3'><p>&nbsp;</p></td></tr></table></td></tr></></div>"
1
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.SentOnBehalfOfName = "ralberts.rs@gmail.com"
A = RS!
.To = A
.Subject = "Governança de Solicitação de Serviços  ********** EMAIL AUTOMÁTICO, FAVOR NÃO RESPONDER ********"
.HTMLBody = msg_email
End With
'ESTE COMANDO DEIXA O E-MAIL PRONTO, MAS NÃO ENVIA
OutMail.DISPLAY
'ESTE COMANDO ENVIA O E-MAIL DIRETO
'OutMail.SEND
RS.MoveNext
If RS.EOF = True Then
Else
Gestor = RS![FUNC_COORD]
Set rsn = db.OpenRecordset("SELECT TBL_EMAIL_COORD.UNID_GESTOR, TBL_EMAIL_COORD.Fora_Prazo, TBL_EMAIL_COORD.PERC_FORAPRAZO,TBL_EMAIL_COORD.FUNC_COORD, TBL_EMAIL_COORD.EMAIL FROM TBL_EMAIL_COORD GROUP BY TBL_EMAIL_COORD.UNID_GESTOR, TBL_EMAIL_COORD.Fora_Prazo, TBL_EMAIL_COORD.PERC_FORAPRAZO, TBL_EMAIL_COORD.FUNC_COORD, TBL_EMAIL_COORD.EMAIL HAVING (((TBL_EMAIL_COORD.FUNC_COORD)='" & Gestor & "')) ORDER BY TBL_EMAIL_COORD.FUNC_COORD;", 2)
End If
Wend
db.Close
MsgBox "Ok Processo concluído"
End Function

 

Editado por Rui Albert da Silva

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×