Olá pessoal,
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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Alterar a cor da Fonte no Outlook
-
- Colaborador
- Mensagens: 34
- Registrado em: Seg Set 24, 2012 5:06 pm
Re: Alterar a cor da Fonte no Outlook
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.
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.