MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Usar Html em e-mail

    Compartilhe

    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    [Resolvido]Usar Html em e-mail

    Mensagem  m_araujo em Qui 27 Jul 2017, 18:54

    Boa tarde!

    amigos como faço para adaptar um código html no VBA?
    Código:
    cellspacing="0"
     width="600">
     <tr>
     </table>
     <!-- TABELA PRINCIPAL -->
     <table
     align="center"
     border="0"
     cellpadding="0"
     cellspacing="0"
     width="600"
     style="border: 1px solid #cccccc;">
     <!-- HEADER --> <tr>
     <td
     bgcolor="#ffffff"
     style="padding: 9px 18px 9px 18px;
     border-bottom: 1px solid #cccccc;">
     <table border="0"
     cellpadding="0"
     cellspacing="0"
     width="100%">
     <tr>
     <!-- LOGO -->
     <td width="25%"
      align="left">
     <img src="Local"
     border="0"
     alt="Logo"
     width="151"
     height="72"
     style="display: block;">
     </td>
     <!-- Sistema de Reservas --> <td
     width="75%"
     align="center"
     style="font-size:20px;
     font-family:Verdana;
     color:#1f497d">
     <strong>"SGR - SISTEMA DE RESERVAS "<br>"RESERVA Nº"& + Me.IdReserva.Value</strong>
     </td>
     </tr>
     </table> </td>
     </tr> <!-- FIM HEADER --> <!-- BODY -->
     <tr>
     <td
     bgcolor="#fafafa"
     style="padding: 9px 18px 12px 18px;
     font-size:14px;
     font-family:Verdana;
     color:#555555"
     >Sistema,<br> <br> Confirmação de Reservas!!<br>
     </td>
     </tr>
     <tr>
     <td
     bgcolor="#1f497d"
     style="padding: 18px 18px 18px 18px;
     font-size:14px;
     font-family:Verdana;
     color: #ffffff"> DETALHE DA RESERVA
     </td>
     </tr> <!-- BODY CAMPOS --> <tr>
     <td
     bgcolor="#fafafa"
     style="padding: 9px 18px 9px 18px;">
     <table
     border="0"
     cellpadding="0"
     cellspacing="0"
     width="100%">
     <tr>
     <td
     style="padding: 0px 0px 9px 0px;
     font-size:14px;
     font-family:Verdana;
     color: #555555;"
     width="50%">
     <strong>Reserva Nº:</strong><br> & + Me.IdReserva.Value
     </td>
     <td
     style="padding: 0px 0px 9px 0px; font-size:14px;
     font-family:Verdana;
     color: #555555;">
     <strong>Solicitante:</strong><br> & + Me.NomeSOlicitante.Value</td> </tr> <tr> <td
     style="padding: 0px 0px 9px 0px;
     font-size:14px;
     font-family:Verdana;
     color: #555555;">
     <strong>Data Solicitação:</strong><br> & + Me.Data_Lancamento.Value</td>
     <td
     style="padding: 0px 0px 9px 0px; font-size:14px;
     font-family:Verdana;
     color: #555555;">
     <strong>Previsão de Chegada:</strong><br> &+Me.Data_Previsao.Value </td>
     </tr>
     <tr>
     <td
     style="padding: 0px 0px 9px 0px;
     font-size:14px;
     font-family:Verdana;
     color: #555555;"> <strong>Tipo de Adomodações:</strong><br> & + Me.TipoAcomodacao.Value
     </td>
     <td
     style="padding: 0px 0px 9px 0px;
     font-size:14px;
     font-family:Verdana;
     color: #555555;">
     <strong>Local de Refeições :</strong><br> & + Me.LocalRefeicoes.Value
     </td>
     </tr>
     <td
     style="padding: 0px 0px 9px 0px;
     font-size:14px;
     font-family:Verdana;
     color: #555555;">
     <strong>Número do Quarto :</strong><br> & + Me.Nquarto.Value
     </td>
     <td
     style="padding: 0px 0px 9px 0px;
     font-size:14px;
     font-family:Verdana;
     color: #555555;">
     <strong>Quantide de Visitantes :</strong><br> & + Me.QtdVisitante.Value
     </td>  
     </table>
     <table
     border="0"
     cellpadding="0"
     cellspacing="0"
     width="100%">
     <tr>
     <tr>
    <td
    style="padding: 0px 0px 9px 0px;
     font-size:14px;
     font-family:Verdana;
     color: #555555;">
     <strong>Nome dos Visitantes:</strong><br> & + Me.NomeOcupanetes.Value <br>
     <br>
     <br>
     </td>
     <tr>
     <td style="padding: 0px 0px 9px 0px;
     font-size:14px;
     font-family:Verdana;
     color: #555555;">
     <strong>Observações:</strong><br> <br>& + Me.Observacoes.Value
     <br>
     <br>
     </td>
    </tr>  
     </td>
     </tr>
     </table>
     </td>
     </tr>
    </table> <!-- FOOTER -->
      <table
      align="center"
      border="0"
      cellpadding="0"
      cellspacing="0"
      width="600">
     <tr>
     <td
     bgcolor="#1f497d"
     style="padding: 18px 18px 18px 18px;
     font-size:14px;
     font-family:Verdana;
     color: #ffffff"
    align="center"> SISTEMA GERENCIAMENTO DE RESERVAS  </td> </tr> </table> </body> </html> </div>

    Preciso que mostra desta forma!
    conforme anexo
    Anexos
    Imagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 5 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3325
    Registrado : 14/08/2013

    Re: [Resolvido]Usar Html em e-mail

    Mensagem  FabioPaes em Qui 27 Jul 2017, 20:23

    Ola, tenha atenção as regras do Fórum!!! Pois as salas de repositórios são destinadas apenas a exemplos, não podendo ser usadas para tirar Duvidas!

    Sua duvida será Movida para a Sala adequada!


    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Re: [Resolvido]Usar Html em e-mail

    Mensagem  m_araujo em Qui 27 Jul 2017, 20:27

    Boa tarde!

    Obrigado desculpe pela confusão.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    Registrado : 05/11/2009

    Re: [Resolvido]Usar Html em e-mail

    Mensagem  Alexandre Neves em Sex 28 Jul 2017, 22:52

    Boa noite,

    No VBA? HTML é HTML e VBA é VBA
    Ou quer o VBA gere código HTML a partir de dados em tabelas?
    Só quer saber como utilizar HTML em c.e.?
    Se sim, procure no fórum
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Re: [Resolvido]Usar Html em e-mail

    Mensagem  m_araujo em Sex 28 Jul 2017, 23:49

    Boa noite!

    Alexandre, obrigado pela ajuda.
    seguinte eu quero adaptar o código html em VBA para enviar um e-mail pelo próprio access conforme imagem anexada.
    estou fazendo alguns teste no código se puder dar uma verificar e veja se tem como.

    Código:

    ' Exemplo de Avelino Sampaio
    Private Sub btEnviar_Click()
    Dim objOut As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objContas As Outlook.Accounts
    Dim objAnexo As Outlook.Attachments
    Dim strCaminho As String
    Dim strmensagem As String

    On Error GoTo trataerro
    '------------------------------------
    'Cancela envio de email caso não haja
    'o destinatário
    '------------------------------------
    If Len(Me!txPara & "") = 0 Then
        MsgBox "Entre com o emeail de destino...", vbInformation, "Aviso"
        Me!txPara.SetFocus
        Exit Sub
    End If
    '------------------------------
    'Ativa o outlook e o formulário
    'de envio
    '------------------------------
    Set objOut = New Outlook.Application
    Set objMail = objOut.CreateItem(olMailItem)
    Set objAnexo = objMail.Attachments
    '---------------------------------------------------------------------------
    'Preenche o formulário de envio
    'fncLerArquivo - função que Lê o arquivo de origem e grava no corpo do email
    'fncLocalBd - função que captura o local do banco de dados
    '---------------------------------------------------------------------------
    With objMail
        .To = Me!txPara 'destinastário
        .CC = Nz(Me!txCc, "") 'com cópia
        .BCC = Nz(Me!TxCco, "") 'Com cópia oculta
            ' <!-- CABEÇALHO -->
         .HTMLBody = strmensagem & "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
         .HTMLBody = strmensagem & "<html xmlns='http://www.w3.org/1999/xhtml'>"
         ' <!-- TABELA PRINCIPAL -->
         .HTMLBody = strmensagem & " <table Align = center Border = 0 cellpadding = 0 cellspacing = 0 Width =600 style=border: 1px solid #cccccc;>"
         ' <!-- HEADER -->
         .HTMLBody = strmensagem & "<tr> <td bgcolor = #ffffff Style = padding: 9px 18px 9px 18px; border-bottom: 1px solid #cccccc;>"
         .HTMLBody = strmensagem & " <table border=0 cellpadding =0 cellspacing = 0 width=100%><tr>"
         '<!-- LOGO -->"
         .HTMLBody = strmensagem & " <td width=25% align=left><img src=C:\SGR\Imagens\logo_new.png Border = 0 alt = Logo Width = 151 Height = 72 style=display: block;></td>"
         '<!-- Sistema de Reservas -->
         .HTMLBody = strmensagem & " <td  Width = 75% Align = center Style = font-size:20px; font-family:Verdana; color:#1f497d> <strong>""SGR - SISTEMA DE RESERVAS ""<br>""RESERVA Nº:"" & Me.IdReserva&""</strong </td></tr></table></td>"
         '<!-- FIM HEADER --> <!-- BODY -->"
         .HTMLBody = strmensagem & " </tr> <tr><td bgcolor = #fafafa Style = padding: 9px 18px 12px 18px; font-size:14px; font-family:Verdana; color:#555555;> ""Sistema,""<br><br>"" Confirmação de Reservas!!"" <br> </td>"
         .HTMLBody = strmensagem & " </tr> <tr><td  bgcolor = 1f497d Style = padding: 18px 18px 18px 18px;  font-size:14px; font-family:Verdana;color: #ffffff > ""DETALHE DA RESERVA"" </td>"
         '<!--BODY CAMPOS -->
         .HTMLBody = strmensagem & " </tr> <tr><td bgcolor = #fafafa style=padding: 9px 18px 9px 18px;><table Border =0 cellpadding = 0 cellspacing = 0 width=100%> <tr>"
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;> width=50%><strong> Reserva Nº:</strong> " & Me.IdReserva & " </td>"
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Solicitante:</strong><br> " & Me.NomeSOlicitante & " </td></tr><tr>"
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;><strong>Data Solicitação:</strong><br>" & Me!Data_lancamento & " </td>"
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Previsão de Chegada:</strong><br>" & Me!Data_Previsao & "</td></tr><tr>"
        
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Tipo de Adomodações:</strong><br> " & Me!TipoAcomodacao & " </td></tr><tr>"
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;><strong>Local de Refeições:</strong><br>" & Me!LocalRefeicoes & " </td>"
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Número do Quarto:</strong><br>" & Me!Nquarto & "</td></tr><tr>"
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Quantidade Visitantes:</strong><br> " & Me!QtdVisitante & " </td></tr><tr>"
         .HTMLBody = strmensagem & " </table> <table Border = 0 cellpadding = 0 cellspacing = 0 width=100%> <tr> <tr>"
         .HTMLBody = strmensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;> <strong>Nome dos Visitantes:</strong><br> " & Me!NomeOcupanetes & "<br><br><br> </td>"
         .HTMLBody = strmensagem & " <tr> <td style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;><strong>Observações:</strong><br> " & Me.Observacoes & " <br><br></td></tr> </td></tr></table></td></tr> </table>"
         '<!-- RODA PÉ -->
         .HTMLBody = strmensagem & " <table Align = center Border =0 cellpadding = 0 cellspacing = 0 width=600> <tr><td bgcolor = #1f497d Style = padding: 18px 18px 18px 18px; font-size:14px; font-family:Verdana; color: #ffffff align= center > ""SISTEMA GERENCIAMENTO DE RESERVAS |"" </td>"
         .HTMLBody = strmensagem & " </tr> </table> </body> </html> </div>"
        '---------------------------------
        'Adicionando os anexos
        '---------------------------------
        'For j = 1 To Me!txAnexo.ListCount
        '    objAnexo.Add Me!txAnexo.Column(0, j - 1), olByValue, 1, Me!txAnexo.Column(1, j - 1)
        'Next
        '--------------------------------------------------------
        'Altera conta de envio conforme seleção do controle conta
        '---------------------------------------------------------
        .SendUsingAccount = objOut.Session.Accounts(Me!txContas.Value) 'seleciona a conta que enviará o email
        '.Display 'exibe o formulário de email
        .Send 'envia o email
    End With
    MsgBox "Mensagem enviada...", vbInformation, "Aviso"

    sair:
        '------------------------
        'Limpa a memória
        '------------------------
        Set objAnexo = Nothing
        Set objMail = Nothing
        Set objOut = Nothing
        Exit Sub
        
    trataerro:
        Select Case Err.Number
            Case 2487
                MsgBox "Selecione o relatório da lista...", vbInformation, "Aviso"
            Case 2282
                MsgBox "Os formatos PDF e XLS não estão disponíveis." & Chr(10) & Chr(13) & Chr(10) & Chr(13) & _
                "Atualize o office com o pacote SP2...", vbInformation, "Aviso"
            Case Else
                MsgBox Err.Number & vbCrLf & Err.Description
        End Select
        Resume sair:

    Desde já agradeço pela ajuda!
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    Registrado : 05/11/2009

    Re: [Resolvido]Usar Html em e-mail

    Mensagem  Alexandre Neves em Sab 29 Jul 2017, 00:10

    Já era tempo de saber trabalhar variáveis, bastava ir acompanhando o fórum ou executar passo-a-passo para ver a evolução do conteúdo da variável

    veja
    Código:
    On Error GoTo trataerro
    '------------------------------------
    'Cancela envio de email caso não haja
    'o destinatário
    '------------------------------------
    If Len(Me!txPara & "") = 0 Then
        MsgBox "Entre com o emeail de destino...", vbInformation, "Aviso"
        Me!txPara.SetFocus
        Exit Sub
    End If
    '------------------------------
    'Ativa o outlook e o formulário
    'de envio
    '------------------------------
    Set objOut = New Outlook.Application
    Set objMail = objOut.CreateItem(olMailItem)
    Set objAnexo = objMail.Attachments
    '---------------------------------------------------------------------------
    'Preenche o formulário de envio
    'fncLerArquivo - função que Lê o arquivo de origem e grava no corpo do email
    'fncLocalBd - função que captura o local do banco de dados
    '---------------------------------------------------------------------------
    With objMail
        .To = Me!txPara 'destinastário
        .CC = Nz(Me!txCc, "") 'com cópia
        .BCC = Nz(Me!TxCco, "") 'Com cópia oculta
            ' <!-- CABEÇALHO -->
        strMensagem = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
        strMensagem = strMensagem & "<html xmlns='http://www.w3.org/1999/xhtml'>"
        ' <!-- TABELA PRINCIPAL -->
        strMensagem = strMensagem & " <table Align = center Border = 0 cellpadding = 0 cellspacing = 0 Width =600 style=border: 1px solid #cccccc;>"
        ' <!-- HEADER -->
        strMensagem = strMensagem & "<tr> <td bgcolor = #ffffff Style = padding: 9px 18px 9px 18px; border-bottom: 1px solid #cccccc;>"
        strMensagem = strMensagem & " <table border=0 cellpadding =0 cellspacing = 0 width=100%><tr>"
        '<!-- LOGO -->"
        strMensagem = strMensagem & " <td width=25% align=left><img src=C:\SGR\Imagens\logo_new.png Border = 0 alt = Logo Width = 151 Height = 72 style=display: block;></td>"
        '<!-- Sistema de Reservas -->
        strMensagem = strMensagem & " <td  Width = 75% Align = center Style = font-size:20px; font-family:Verdana; color:#1f497d> <strong>""SGR - SISTEMA DE RESERVAS ""<br>""RESERVA Nº:"" & Me.IdReserva&""</strong </td></tr></table></td>"
        '<!-- FIM HEADER --> <!-- BODY -->"
        strMensagem = strMensagem & " </tr> <tr><td bgcolor = #fafafa Style = padding: 9px 18px 12px 18px; font-size:14px; font-family:Verdana; color:#555555;> ""Sistema,""<br><br>"" Confirmação de Reservas!!"" <br> </td>"
        strMensagem = strMensagem & " </tr> <tr><td  bgcolor = 1f497d Style = padding: 18px 18px 18px 18px;  font-size:14px; font-family:Verdana;color: #ffffff > ""DETALHE DA RESERVA"" </td>"
        '<!--BODY CAMPOS -->
        strMensagem = strMensagem & " </tr> <tr><td bgcolor = #fafafa style=padding: 9px 18px 9px 18px;><table Border =0 cellpadding = 0 cellspacing = 0 width=100%> <tr>"
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;> width=50%><strong> Reserva Nº:</strong> " & Me.IdReserva & " </td>"
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Solicitante:</strong><br> " & Me.NomeSOlicitante & " </td></tr><tr>"
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;><strong>Data Solicitação:</strong><br>" & Me!Data_lancamento & " </td>"
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Previsão de Chegada:</strong><br>" & Me!Data_Previsao & "</td></tr><tr>"
       
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Tipo de Adomodações:</strong><br> " & Me!TipoAcomodacao & " </td></tr><tr>"
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;><strong>Local de Refeições:</strong><br>" & Me!LocalRefeicoes & " </td>"
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Número do Quarto:</strong><br>" & Me!Nquarto & "</td></tr><tr>"
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana;color: #555555;><strong>Quantidade Visitantes:</strong><br> " & Me!QtdVisitante & " </td></tr><tr>"
        strMensagem = strMensagem & " </table> <table Border = 0 cellpadding = 0 cellspacing = 0 width=100%> <tr> <tr>"
        strMensagem = strMensagem & " <td Style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;> <strong>Nome dos Visitantes:</strong><br> " & Me!NomeOcupanetes & "<br><br><br> </td>"
        strMensagem = strMensagem & " <tr> <td style = padding: 0px 0px 9px 0px; font-size:14px; font-family:Verdana; color: #555555;><strong>Observações:</strong><br> " & Me.observacoes & " <br><br></td></tr> </td></tr></table></td></tr> </table>"
        '<!-- RODA PÉ -->
        strMensagem = strMensagem & " <table Align = center Border =0 cellpadding = 0 cellspacing = 0 width=600> <tr><td bgcolor = #1f497d Style = padding: 18px 18px 18px 18px; font-size:14px; font-family:Verdana; color: #ffffff align= center > ""SISTEMA GERENCIAMENTO DE RESERVAS |"" </td>"
        strMensagem = strMensagem & " </tr> </table> </body> </html> </div>"
        .HTMLBody = strMensagem
        '---------------------------------
        'Adicionando os anexos
        '---------------------------------
        'For j = 1 To Me!txAnexo.ListCount
        '    objAnexo.Add Me!txAnexo.Column(0, j - 1), olByValue, 1, Me!txAnexo.Column(1, j - 1)
        'Next
        '--------------------------------------------------------
        'Altera conta de envio conforme seleção do controle conta
        '---------------------------------------------------------
        .SendUsingAccount = objOut.Session.Accounts(Me!txContas.value) 'seleciona a conta que enviará o email
        '.Display 'exibe o formulário de email
        .Send 'envia o email
    End With
    MsgBox "Mensagem enviada...", vbInformation, "Aviso"

    sair:
        '------------------------
        'Limpa a memória
        '------------------------
        Set objAnexo = Nothing
        Set objMail = Nothing
        Set objOut = Nothing
        Exit Sub
       
    trataerro:
        Select Case err.Number
            Case 2487
                MsgBox "Selecione o relatório da lista...", vbInformation, "Aviso"
            Case 2282
                MsgBox "Os formatos PDF e XLS não estão disponíveis." & Chr(10) & Chr(13) & Chr(10) & Chr(13) & _
                "Atualize o office com o pacote SP2...", vbInformation, "Aviso"
            Case Else
                MsgBox err.Number & vbCrLf & err.Description
        End Select
        Resume sair:


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Re: [Resolvido]Usar Html em e-mail

    Mensagem  m_araujo em Sab 29 Jul 2017, 15:14

    Bom dia!

    Alexandre, obrigado funcionou bem.
    e irei estudar mais sim estou no começando ainda.
    agora se possível preciso de outra ajuda.
    Pelo que notei nas pesquisas na net não tem boda fina em html, mais o pessoal cria efeitos para ter a impressão de borda fina.
    tentei de varias formas e não conseguir.
    também tem as cores da fonte e o tipo da fonte e o tamanho, não estão aceitando, segue o código:
    Código:

         strmensagem = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
         strmensagem = strmensagem & "<html xmlns='http://www.w3.org/1999/xhtml'>"
         ' <!-- TABELA PRINCIPAL -->
         strmensagem = strmensagem & " <table bgcolor = #FFFFFF Align = center Border = 0 cellpadding = 0 cellspacing = 0 Width =600 solid #EAEAEA>"
         ' <!-- HEADER -->
         strmensagem = strmensagem & " <tr> <td bgcolor = #FFFFFF border-bottom= 1 solid =#EAEAEA>"
         strmensagem = strmensagem & " <table border=0 cellpadding =0 cellspacing = 1 width=100%><tr>"
         '<!-- LOGO -->"
         strmensagem = strmensagem & " <td width=25% align=left> <img src=C:\SGR\images\logo_new.png Border = 0 alt = Logo Width = 151 Height = 72 style=display: block;><br><br></td>"
         '<!-- Sistema de Reservas -->
        <------------------- Aqui a fonte não mudar nem de tamaho..  
         strmensagem = strmensagem & " <td  Width = 75% Align = center font size=25 face=Verdana color =#17365D><strong> SGR - SISTEMA DE RESERVAS<br>RESERVA Nº:" & Me.IdReserva & "</strong></td></tr></table><br> </td>"
         '<!-- FIM HEADER --> <!-- BODY -->"
         strmensagem = strmensagem & " </tr><tr><td  bgcolor = #F3F3F3 font size=14 face=Verdana color = #555555><br>MEU NOME,<br>Confirmação de Reservas<br><br></td>"
        <------------------- Aqui a fonte devera ser branca para dar o destaque no fundo azul.  
         strmensagem = strmensagem & " </tr><tr><td  bgcolor = #1f497d font size=14 face=Verdana color = #FFFFFF align= center><br>DETALHE DA RESERVA  <br><br></td>"
         '<!--BODY CAMPOS -->
         strmensagem = strmensagem & " </tr> <tr><td bgcolor = #F3F3F3 ><table Border =0 cellpadding = 0 cellspacing = 0 width=100%> <br><tr>"
         strmensagem = strmensagem & " <td  font size=14 face=Verdana color= #555555><strong>Reserva Nº:</strong><br>" & Me.IdReserva & " <br></td>"
         strmensagem = strmensagem & " <td  font size=14 face=Verdana color= #555555><strong><br>Solicitante:</strong><br> " & Me.NomeSOlicitante & " </td></tr><tr>"
         strmensagem = strmensagem & " <td  font size=14 face=Verdana color= #555555><strong><br>Data Solicitação:</strong><br>" & Me!Data_lancamento & " </td>"
         strmensagem = strmensagem & " <td  font size=14 face=Verdana color= #555555><strong><br>Previsão de Chegada:</strong><br>" & Me!Data_Previsao & "</td></tr><tr>"
        
         strmensagem = strmensagem & " <td  font size=14 face=Verdana color= #555555><br><strong>Tipo de Adomodações:</strong><br> " & Me!TipoAcomodacao & " </td>"
         strmensagem = strmensagem & " <td  font size:14 face=Verdana color= #555555><br><strong>Local de Refeições:</strong><br>" & Me!LocalRefeicoes & " </td></tr><tr>"
         strmensagem = strmensagem & " <td  font size:14 face=Verdana color= #555555><br><strong>Quantidade Visitantes:</strong><br> " & Me!QtdVisitante & " </td>"
         strmensagem = strmensagem & " <td  font size:14 face=Verdana color= #555555><br><strong>Número do Quarto:</strong><br>" & Me!Nquarto & "</td></tr><tr>"
         strmensagem = strmensagem & " </table> <table Border = 0 cellpadding = 0 cellspacing = 0 width=100%> <tr> <tr>"
         strmensagem = strmensagem & " <td  font size=14 face=Verdana color= #555555> <strong>Nome dos Visitantes:</strong><br> " & Me!NomeOcupanetes & "<br><br><br> </td>"
         strmensagem = strmensagem & " <tr> <td  font size=14 face=Verdana color= #555555><strong>Observações:</strong><br> " & Me.Observacoes & " <br><br><br></td></tr> </td></tr></table></td></tr> </table>"
         '<!-- RODA PÉ -->
    '<------------------- Aqui a fonte devera ser branca para dar o destaque no fundo azul.    
     strmensagem = strmensagem & " <table Align = center Border =0 cellpadding = 0 cellspacing = 0 width=600> <tr><td bgcolor = #1f497d font size:14; font face:Verdana; color: #ffffff; align= center > <br>SISTEMA GERENCIAMENTO DE RESERVAS |<br> <br></td>"
         strmensagem = strmensagem & " </tr> </table> </body> </html> </div>"
         .HTMLBody = strmensagem
        'Adicionando os anexos
        '---------------------------------
        'For j = 1 To Me!txAnexo.ListCount
        '    objAnexo.Add Me!txAnexo.Column(0, j - 1), olByValue, 1, Me!txAnexo.Column(1, j - 1)
        'Next
        '--------------------------------------------------------
        'Altera conta de envio conforme seleção do controle conta
        '---------------------------------------------------------
        .SendUsingAccount = objOut.Session.Accounts(Me!txContas.Value) 'seleciona a conta que enviará o email
        '.Display 'exibe o formulário de email
        .Send 'envia o email

    quero deixe mais ou menos igual a imagem em anexo o stylo da borda e a fonte.
    Anexos
    Reservas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 1 vez(es)

    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Re: [Resolvido]Usar Html em e-mail

    Mensagem  m_araujo em Sab 29 Jul 2017, 16:06

    Boa tarde!

    Amigos,
    Quanto a questão da fonte, cor, tamanho e tipo, resolvido.
    Código:


      strmensagem = strmensagem & " </tr><tr><td  bgcolor = #1f497d align= center>
     '--- Foi a correção no código foi acrescenta o < Font onde quer queres que formata e fecha no final da linha.
    [b]<font face=Verdana color = #FFFFFF size=4
    <br> DETALHE DA RESERVA [b]</font><br><br></td>"


    segue as modificações.
    falta agora a questão da borda que não consegui ainda.


    Obrigado!

    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Re: [Resolvido]Usar Html em e-mail

    Mensagem  m_araujo em Sab 29 Jul 2017, 17:48

    Boa tarde!

    Amigos,
    resolvido meu problema, agradeço pela atenção todos.
    assim que eu concluir posto meu exemplo aqui para os demais.

    solução:
    Código:

    strmensagem = strmensagem & " <table Style = border-collapse: collapse bgcolor = #C4C4C4 Align = center Border = 0 cellpadding = 0 cellspacing = 1 Width =600 >"

    Obrigado!

      Data/hora atual: Qui 21 Set 2017, 02:37