ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Preciso dar destaque(background(?)) a uma variavel String no corpo de um e-mail

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
VFerr
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Set 24, 2020 11:52 am

Preciso dar destaque(background(?)) a uma variavel String no corpo de um e-mail

Mensagem por VFerr » Qui Set 24, 2020 5:13 pm

Boa tarde, tenho uma macro que envia e-mails automaticamente, a variavel data foi declarada como string, referenciada na planilha, e eu necessito destacar ela dessa forma: 24/09/2020 (amarelo e em negrito) isso em CÓDIGO VBA, alguém poderia me dar uma ajuda nisso? Já pesquisei mas não encontrei em nenhum lugar. Segue abaixo algumas linhas de código que possui a "data" para ficar explicito como estão as declarações.

Dim data As String (como foi declarada)
data = Range("a20").Value (onde está referenciada)
" referente a data " & data & "." & _ ( como está no corpo do e-mail)



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Raygsson
Colaborador
Colaborador
Mensagens: 67
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Preciso dar destaque(background(?)) a uma variavel String no corpo de um e-mail

Mensagem por Raygsson » Qui Set 24, 2020 7:52 pm

Voce consegue aplicar formatações tratando o conteúdo do e-mail como HTML e estilos CSS. Segue um Exemplo:

Código: Selecionar todos

Sub Email() 

    Dim objOL As New Outlook.Application

    Dim objMail As MailItem

    Set objOL = New Outlook.Application

    Set objMail = objOL.CreateItem(olMailItem)

    Dim data As String, texto As String      
       

    data = "24/09/2020"

    texto = "<HTML><p>Exemplo de data com formatação via HTML/CSS: <span style='background-color:yellow; font-weight:bold'>" & data & "</span></p></HTML>"
    

    Set objMail = objOL.CreateItem(olMailItem)

    With objMail

        .SentOnBehalfOfName = "remetente@gmail.com" 'remetente

        .To = "destinarario@gmail.com" 'destinatário

        .Subject = "exemplo" ' assunto

        .BodyFormat = olFormatHTML 'formato do texto

        .HTMLBody = texto ' conteudo do texto

        .display

    End With    
                    

    Set objMail = Nothing

    Set objOL = Nothing
 

End Sub
Anexos
email.JPG
email.JPG (106.33 KiB) Exibido 240 vezes



Responder