Como usar fontes diferentes automaticamente para contas diferentes ao enviar e-mail no Outlook

Se você configurou várias contas de e-mail em seu Outlook e gostaria de usar fontes diferentes em e-mails enviados de acordo com diferentes contas de e-mail usadas para envio, você pode utilizar a abordagem apresentada neste artigo.

Muitos usuários esperam que o Outlook possa selecionar automaticamente e usar fontes diferentes em e-mails de saída com base em diferentes contas de e-mail que eles usam para enviar. No entanto, por padrão, o Outlook não possui esse recurso. Felizmente, você ainda pode perceber isso com a ajuda do código VBA. Agora, vamos revelar este método em detalhes.

Use fontes diferentes automaticamente para contas diferentes ao enviar e-mail

1. Primeiramente, abra o aplicativo Outlook.
2. Em seguida, na próxima janela principal do Outlook, você deve pressionar as teclas “Alt + F11”.
3. Em seguida, você entrará em uma nova janela – “Microsoft Visual Basic for Applications”.
4. Nesta janela, você deve encontrar e abrir o projeto “ThisOutlookSession”.
5. Posteriormente, copie e cole o seguinte código VBA neste projeto.

'Occurs when you click "Send" button
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objMailDocument = objMail.GetInspector.WordEditor
 
       'Use different fonts based on different send using account
       'Change the accounts and fonts as per your needs
       Select Case objMail.SendUsingAccount
              Case "johnsmith@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Times New Roman"
                        .Size = 13
                        .ColorIndex = wdBlue
                   End With
              Case "team1@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Cambria"
                        .Size = 10
                        .ColorIndex = wdBlack
                   End With
              Case "johnsmith_jonny@outlook.com"
                   With objMailDocument.Range.Font
                        .Name = "Segoe Script"
                        .Size = 8
                        .ColorIndex = wdDarkYellow
                   End With
      End Select
 
      objMail.Save
    End If
End Sub

6. Depois disso, é melhor você assinar este código.

• Primeiro, clique no botão “Ferramentas” na barra de ferramentas.
• Em seguida, escolha a opção “Assinatura digital” na lista suspensa.
• Mais tarde, você pode seguir as instruções na tela para concluir esta tarefa.

7. Em seguida, você pode sair da janela atual e prosseguir para alterar as configurações de macro do Outlook para permitir os projetos VBA assinados.
8. A partir de agora, toda vez que você enviar um e-mail, o Outlook alterará automaticamente as fontes nos e-mails enviados de acordo com a conta de e-mail para envio.

Mantenha-se preparado para uma falha inesperada do Outlook

Devido à vulnerabilidade do Outlook, os usuários precisam estar sempre bem preparados para diversos problemas ao lidar com o programa. Sem dúvida, uma das etapas mais essenciais é manter um backup consistente e atualizado dos dados do Outlook. Com esses backups, mesmo que os dados originais do Outlook sejam corrompidos em uma falha, você ainda poderá recuperá-los. recuperar Outlook Recupere dados de backups com extrema facilidade. Além disso, é recomendável equipar seu Outlook com uma ferramenta de reparo poderosa, como... DataNumen Outlook Repair. Será útil quando os backups falharem.

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 corrupção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com