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

Compartilhe agora:

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 para contas diferentes ao enviar e-mail no Outlook

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

  1. Em primeiro lugar, start seu 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.
'Ocorre quando você clica no botão "Enviar" Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objMail As MailItem Dim objMailDocument As Word.Document If TypeOf Item For MailItem Then Set objMail = Item Set objMailDocument = objMail.GetInspector.WordEditor 'Usar fontes diferentes com base em diferentes contas de envio 'Alterar as contas e fontes de acordo com suas necessidades Selecionar caso objMail.SendUsingAccount Caso "johnsmith@datanumen.com" With objMailDocument.Range.Font .Name = "Times New Roman" .Size = 13 .ColorIndex = wdBlue End With Case "team1@datanumen.com" Com objMailDocument.Range.Font .Name = "Cambria" .Size = 10 .ColorIndex = wdBlack End With Case "johnsmith_jonny@outlook.com" Com objMailDocument.Range.Font .Name = "Segoe Script" .Size = 8 .ColorIndex = wdDarkYellow End With End Selecione objMail.Save End If End Sub

Código VBA - Use Fontes Diferentes para Contas Diferentes

  1. 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.
  1. 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.
  2. 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 se manter bem preparados para vários problemas ao lidar com o Outlook o tempo todo. Sem dúvidas, um dos most passos essenciais é fazer um backup consistente e atualizado para os dados do Outlook. Com esses backups, mesmo que os dados originais do Outlook sejam danificados em uma falha, você ainda pode recuperar Outlook dados de backups com utmost facilidade. Além disso, também é aconselhável equipar seu Outlook com uma ferramenta de correção potente, 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

Compartilhe agora:

3 respostas para “Como usar automaticamente fontes diferentes para contas diferentes ao enviar e-mail no Outlook”

  1. Eu gosto desse pedaço de VBA… é perfeito para o meu problema de trabalhar com vários formatos/assinaturas de clientes.
    Pergunta: o que acontece se o e-mail for enviado de uma conta que não está incluída no VBA… ele voltará para as configurações padrão feitas no Outlook?
    Se esse cenário causar um problema/travamento, é possível alterar o VBA para que ele tenha Case = ou algo equivalente e então definir o padrão para esse Case???

Deixe um comentário

O seu endereço de e-mail não será publicado. Os campos obrigatórios são marcados com *