Rui Albert da Silva

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 = "[email protected]" 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

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.