Como usar automaticamente diferentes cores de fonte para responder e encaminhar e-mails com o Outlook VBA

Por padrão, você não pode permitir que o Outlook use automaticamente cores de fonte diferentes para responder e encaminhar e-mails. Portanto, se você tiver esse requisito, poderá ler este post para aprender uma abordagem inteligente.

O Outlook permite apenas que você especifique uma fonte usada para responder e encaminhar e-mails. Você pode ir para “Arquivo” > “Opções”. Em seguida, em “Opções do Outlook”, abra a guia “Correio” e clique no botão “Papelaria e fontes…”. Na janela seguinte, você pode ver o botão “Fonte” em “Responder ou encaminhar mensagens”. Clique nele e, em seguida, você pode definir uma cor de fonte específica para responder e encaminhar e-mails.

No entanto, muitos usuários esperam usar cores de fonte diferentes para responder ou encaminhar e-mails. Embora o Outlook não forneça nenhum recurso direto para isso, ele ainda pode ser realizado com o código VBA. Agora, continue lendo para obter esse pedaço de código VBA.

Use automaticamente diferentes cores de fonte para responder e encaminhar e-mails

1. Para comotart, inicie o aplicativo Outlook.
2. Em seguida, acione o editor VBA com referência a “Como executar o código VBA no seu Outlook".
3. Em seguida, de acordo com “Como adicionar uma biblioteca de objetosrary Referência em VBA“, adicione a referência a “MS Word Object Library ”.
4. Posteriormente, copie o seguinte código para o projeto “ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If TypeOf objExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Dim objReply As Outlook.MailItem
    Dim objReplyDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objReply = objMail.Reply
    objReply.Display
    Set objReplyDoc = objReply.GetInspector.WordEditor
    objReplyDoc.Range(0, 0).Select
    Set objDocSelection = objReplyDoc.Application.Selection
    'Use "Pink" font in "Reply"
    objDocSelection.Font.ColorIndex = wdPink
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objReplyAllDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objReplyAll = objMail.ReplyAll
    objReplyAll.Display
    Set objReplyAllDoc = objReplyAll.GetInspector.WordEditor
    objReplyAllDoc.Range(0, 0).Select
    Set objDocSelection = objReplyAllDoc.Application.Selection
    'Use "Green" font in "Reply All"
    objDocSelection.Font.ColorIndex = wdGreen
End Sub

Private Sub objMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    Dim objForward As Outlook.MailItem
    Dim objForwardDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objForward = objMail.Forward
    objForward.Display
    Set objForwardDoc = objForward.GetInspector.WordEditor
    objForwardDoc.Range(0, 0).Select
    Set objDocSelection = objForwardDoc.Application.Selection
    'Use "Blue" font in Forward
    objDocSelection.Font.ColorIndex = wdBlue
End Sub

5. Depois disso restart Outlook para ativar esta macro.
6. Finalmente, você pode tentar.

• Selecione ou abra um e-mail.
• Em seguida, clique no botão “Responder”. Ao responder e-mail, você pode digitar algumas palavras no corpo. A cor da fonte deve ser rosa.
• Ou clique no botão “Responder a todos”. No novo e-mail “respondendo a todos”, insira as palavras no corpo. A cor da fonte é certamente verde.
• Da mesma forma, clique no botão "Avançar". No e-mail de encaminhamento, as novas palavras serão mostradas em azul.

Recorra a um software confiável

Em caso de Corrupção do Outlook, Most os usuários tendem a recorrer ao software de recuperação do Outlook. Há uma grande quantidade de tais programas disponíveis no mercado. E alguns deles são até gratuitos. No entanto, você deve tomar cuidado com aqueles de fontes desconhecidas, pois podem tornar o caso atual cada vez pior. Você deve ter a ajuda de uma ferramenta confiável e experiente, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo sql corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com