Ir ao conteúdo
  • Cadastre-se
Raff.Ferreira

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

Posts recomendados

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 = "daiana.dias@br.zurich.com"
        .CC = "bruna.lacerda@br.zurich.com;camila.dutra@br.zurich.com;gabriela.zagarino@br.zurich.com;mariana.rodrigues@br.zurich.com;queila.alves@br.zurich.com"
        .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 = "bruna.lacerda@br.zurich.com;camila.dutra@br.zurich.com;gabriela.zagarino@br.zurich.com;mariana.rodrigues@br.zurich.com;queila.alves@br.zurich.com"
        .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 = "bruna.lacerda@br.zurich.com;camila.dutra@br.zurich.com;gabriela.zagarino@br.zurich.com;mariana.rodrigues@br.zurich.com;queila.alves@br.zurich.com"
        .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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!