Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Alterar a cor da Fonte no Outlook

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
ricardourias
Colaborador
Colaborador
Mensagens: 34
Registrado em: Seg Set 24, 2012 5:06 pm

Alterar a cor da Fonte no Outlook

Mensagem por ricardourias »

Olá pessoal, :D

Estou aptando uma rotina para envio de e-mail de um modelo postado aqui no fórum por outro colega (viewtopic.php?f=23&t=2374), porém gostaria de alterar a cor da fonte de parte do corpo do e-mail. Já tentei utilizar o comando "".Font.ColorIndex", porém o programa gera uma mensagem de erro (O objeto não suporta esta propriedade ou método (Erro 438)). Você poderiam me ajudar? :?:

Segue o código para análise (os campos em negrito são que eu gostaria de alterar a cor da fonte):

Sub Mail_Outlook_Express()
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Dim Arq As String

Recipient = frmCadastro.textox
Recipientcc = " "
Recipientbcc = " "
Subj = "Abertura de Ocorrência nº " & frmCadastro.txtCodigoFornecedor
msg = "Prezado(a)," & vbNewLine & vbNewLine & _
"Segue a ocorrência aberta por " & frmCadastro.TextBox2 & " em " & frmCadastro.txtNomeContato & " sob a sua responsabilidade:" & vbNewLine & vbNewLine & _
"- Nº da Ocorrência : " & frmCadastro.txtCodigoFornecedor & vbNewLine & _
"- Data da Ocorrência : " & frmCadastro.txtCEP & vbNewLine & _
"- Tipo da Ocorrência : " & frmCadastro.txtTelefone & vbNewLine & _
"- Origem da Ocorrência : " & frmCadastro.origem & vbNewLine & _
"- Requisito da Origem : " & frmCadastro.Requisito & vbNewLine & _
"- Local da Ocorrência: " & frmCadastro.txtRegiao & vbNewLine & _
"- Área da Ocorrência: " & frmCadastro.txtFax & vbNewLine & _
"- Equipamento/Setor da Ocorrência: " & frmCadastro.Equipamento & vbNewLine & _
"- Dedrição da Ocorrência: " & frmCadastro.txtCidade & vbNewLine & _
"- Impacto da Ocorrência: " & frmCadastro.Impacto & vbNewLine & vbNewLine & _
"Solicitamos vossa análise nesta ocorrência e determine um Plano de Ação no prazo máximo de 15 dias." & vbNewLine & vbNewLine & _
"Mais infomações sobre esta ocorrência, favor acessar a planilha de Plano de Ação." & vbNewLine & vbNewLine & _
"Att."

msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ThisWorkbook.FollowHyperlink (HLink)


End Sub


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.


Pott
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Dez 06, 2022 4:04 pm

Re: Alterar a cor da Fonte no Outlook

Mensagem por Pott »

Olá pessoal.
Tenho uma dúvida semelhante.
Utilizo uma macro para enviar e-mail pelo excel e gostaria que apenas uma palavra do corpo do e-mail ficasse na cor vermelha para destacar a informação.
Abaixo a linha do VBA que busca a palavra no Excel que preciso deixar em vermelho:

"Status: " & Plan1.Cells(linha, 18) & vbCrLf & _

Grato se puderem me ajudar.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Alterar a cor da Fonte no Outlook

Mensagem por webmaster »

Pott,

Pode por favor criar um novo tópico?


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.


Responder