Visual Basic Email Automático em excel/VBA - Texto em Negrito?

[Raff.Ferreira]

Prezados, boa tarde!

 

Gostaria da ajuda de vocês para formatar meu email automático em vba para que somente algumas palavras ficassem em negrito. Não consigo de jeito nenhum, só consigo deixar tudo em negrito ou tudo normal. De resto tá uma uva o código, mas meu perfeccionismo pede algumas partes em negrito

 

Abaixo segue o código, preciso formatar na parte .HTMLBody:

 

Sub Envio()

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem


Dim apl As String
Dim tomador As String
Dim data As String
Dim valor As Double
Dim dados As String
Dim cnpj As String
Dim tipo As String
Dim hora As Integer


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

   'Definição variavéis
    apl = Sheets("Auxiliar").Cells(18, 2).Value
    tomador = Sheets("Auxiliar").Cells(19, 2).Value
    data = Sheets("Auxiliar").Cells(20, 2).Value
    valor = Sheets("Auxiliar").Cells(21, 2).Value
    dados = Sheets("Auxiliar").Cells(22, 2).Value
    cnpj = Sheets("Auxiliar").Cells(23, 2).Value
    tipo = Sheets("Auxiliar").Cells(24, 2).Value
    hora = Sheets("Auxiliar").Cells(2, 9).Value
    
    'Criação e chamada do Objeto Outlook
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
   
    If Len(tipo) = 0 Then
        MsgBox "Favor incluir tipo de email!", vbInformation
        
    'Definindo mensagens
    ElseIf tipo = "Emissão" Then
    
         With OutMail
        .BodyFormat = olFormatHTML
        .To = "[email protected]"
        .CC = "[email protected];[email protected];[email protected];[email protected];[email protected]"
        .BCC = ""
        .Subject = "***CANCELAMENTO/RESTITUIÇÃO*** " & tomador & " | " & "CNPJ " & cnpj & " | " & "APL " & apl
        If hora < 12 Then
            .HTMLBody = "<font size=3  color=1F497D face=calibri>Dai, Bom dia!<br><p>Favor proceder com a restituição e cancelamento desta apólice.<p/><br><br>Local: XXXXXXXX_INSERIR_XXXXXXXX<br><br>Restituição: R$" & valor & "<br>Data de cancelamento: " & data & "<br><br>Abaixo segue conta corrente para restituição<br>" & dados & " | CNPJ:" & cnpj & "<br><br><br><font size=6  color=red face=calibri>Favor Enviar Certificação por EMAIL<br>"
        Else
            .HTMLBody = "<font size=3  color=1F497D face=calibri>Dai, Boa tarde!<br><p>Favor proceder com a restituição e cancelamento desta apólice.<p/><br><br>Local: XXXXXXXX_INSERIR_XXXXXXXX<br><br>Restituição: R$" & valor & "<br>Data de cancelamento: " & data & "<br><br>Abaixo segue conta corrente para restituição<br>" & dados & " | CNPJ:" & cnpj & "<br><br><br><font size=6  color=red face=calibri>Favor Enviar Certificação por EMAIL<br>"
        End If
        .Display
        End With
        
    ElseIf tipo = "De acordo com dados Bancários" Then
         With OutMail
        .BodyFormat = olFormatHTML
        .To = ""
        .CC = "[email protected];[email protected];[email protected];[email protected];[email protected]"
        .BCC = ""
        .Subject = "***CANCELAMENTO/RESTITUIÇÃO*** " & tomador & " | " & "CNPJ " & cnpj & " | " & "APL " & apl
        If hora < 12 Then
            .HTMLBody = "<font size=3  color=1F497D face=calibri>Bom dia!<br><br><br>Solicito, por favor, de acordo para restituição conforme tabela abaixo. A restituição será feita na conta: " & dados & " CNPJ: " & cnpj & "<br><br><br><font size=6  color=red face=calibri>COLAR CALCULO<br>COLOCAR DESTINATÁRIO"
        Else
            .HTMLBody = "<font size=3  color=1F497D face=calibri>Boa tarde!<br><br><br>Solicito, por favor, de acordo para restituição conforme tabela abaixo. A restituição será feita na conta: " & dados & " CNPJ: " & cnpj & "<br><br><br><font size=6  color=red face=calibri>COLAR CALCULO<br>COLOCAR DESTINATÁRIO"
        End If
        .Display
        End With
        
    ElseIf tipo = "De acordo sem dados Bancários" Then
         With OutMail
        .BodyFormat = olFormatHTML
        .To = ""
        .CC = "[email protected];[email protected];[email protected];[email protected];[email protected]"
        .BCC = ""
        .Subject = "***CANCELAMENTO/RESTITUIÇÃO*** " & tomador & " | " & "CNPJ " & cnpj & " | " & "APL " & apl
        .HTMLBody = "<font size=3  color=1F497D face=calibri>Bom dia!<br><br><br>Solicito, por favor, os dados bancários do Tomador: " & tomador & " CNPJ: " & cnpj & ", para restituição do prêmio no valor de R$" & valor & ", conforme tabela abaixo.<br><br><br><font size=6  color=red face=calibri>COLAR CALCULO<br>COLOCAR DESTINATÁRIO"
        .Display
        
        End With
           
    End If
    
    'Resetando a sessão
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
    
End Sub