Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro Enviar Email
 
Notifications
Clear all

Macro Enviar Email

 
2024 - VBA & Macros
Post Recente por JokerPot 7 anos atrás
2 Posts
1 Usuários
0 Reactions
1,087 Visualizações
RSS
 JokerPot
(@jokerpot)
Posts: 132
Estimable Member
Topic starter
 

Pessoal Bom Dia!

Preciso de uma ajuda.

Tenho um código que envia planilhas por email e mensagem no corpo do texto.

Esta funcionado corretamente, porem gostaria de alterar o formato da mensagem do corpo do email.

Ocorre que gostaria que partes importantes da mensagem como “DATAS” fossem destacas em Negrito e Vermelho.

Abaixo partes do código:

 'Aqui a parte onde ele localiza as mensagens
MENSAGEM_1 = Sheets("PARAMETROS").Range("$K$41").Value
MENSAGEM_2 = Sheets("PARAMETROS").Range("$K$42").Value
DATA_1 = Sheets("PARAMETROS").Range("$K$43").Value
MENSAGEM_3 = Sheets("PARAMETROS").Range("$K$44").Value
DATA_2 = Sheets("PARAMETROS").Range("$K$45").Value
MENSAGEM_4 = Sheets("PARAMETROS").Range("$K$46").Value
MENSAGEM_5 = Sheets("PARAMETROS").Range("$K$47").Value
MENSAGEM_6 = Sheets("PARAMETROS").Range("$K$48").Value
       'Aqui a parte onde ele envia o email     
            Set olapp = CreateObject("Outlook.Application")
            Set oitem = olapp.CreateItem(0)
            With oitem
                .Subject = x_ARQUIVO
                .To = X_EMAIL
                .Body = MENSAGEM_1 & vbCrLf & vbCrLf & _
                        MENSAGEM_2 & DATA_1 & vbCrLf & vbCrLf & _
                        MENSAGEM_3 & DATA_2 & vbCrLf & vbCrLf & _
                        MENSAGEM_4 & vbCrLf & vbCrLf & _
                        MENSAGEM_5 & vbCrLf & vbCrLf & _
                        MENSAGEM_6
'               .Attachments.Add ActiveWorkbook.FullName
                .Attachments.Add (x_CAMINHO & x_ARQUIVO)
                .SEND

Gostaria que DATA_1 e DATA_2 fossem destacados em vermelho.

Abraços.

 
Postado : 28/09/2017 7:04 am
 JokerPot
(@jokerpot)
Posts: 132
Estimable Member
Topic starter
 

Pessoal,

Para conhecimento.

Consegui resolver.

Abaixo a solução, colorindo partes que eu quero e pulando linhas.

    .HTMLBody = _
   "<HTML>" & vbNewLine & _
      "<BODY style=font-size:11pt;font-family:Century Gothic> " & vbNewLine & _
         "<font color=""black""> " & MENSAGEM_1 & "<P>" & vbNewLine & _
         "<font color=""black""> " & MENSAGEM_2 & "</font>" & "<font color=""red""> " & DATA_1 & "<P>" & vbNewLine & _
         "<font color=""black""> " & MENSAGEM_3 & "</font>" & "<font color=""red""> " & DATA_2 & "<P>" & vbNewLine & _
         "<font color=""black""> " & MENSAGEM_4 & "</font>" & "<font color=""red""> " & MENSAGEM_5 & "</font>" & "<font color=""black""> " & MENSAGEM_6 & "<P>" & vbNewLine & _
         "<font color=""black""> " & MENSAGEM_7 & "<P>" & vbNewLine & _
         "<font color=""black""> " & MENSAGEM_8 & "<P>" & vbNewLine & _
      "</BODY>" & vbNewLine & _
   "</HTML>"

Abraços.

 
Postado : 29/09/2017 4:04 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico