[Resolvido]Usar Html em e-mail

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

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.

Boa tarde!

Obrigado desculpe pela confusão.

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
https://www.maximoaccess.com/t3615-resolvidohtml-formatado-em-objmail-htmlbody
https://www.maximoaccess.com/t9870-formatar-texto-do-email-a-ser-enviado

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!

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:


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.

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!

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!