Como ordenar e agrupar por domínio do remetente no Outlook?

Normalmente, podemos organizar facilmente todas as mensagens de email por remetente, categorias, assuntos, tamanho, etc., no Microsoft Outlook. No entanto, parece impossível classificar ou agrupar mensagens de email por domínios de remetentes, porque não há um campo Domínio do remetente para as mensagens de email. Aqui vou apresentar um código VBA para ajudá-lo a adicionar uma coluna Domínio para as mensagens de email, permitindo que você ordene e agrupe os emails pelo domínio dos remetentes facilmente no Outlook.

Para ordenar e agrupar mensagens de email por domínios de remetentes no Microsoft Outlook 2013 e 2010, siga os passos abaixo:

Passo 1: Abra a pasta de email onde você deseja ordenar todas as mensagens de email por domínios de remetentes.

Passo 2: Desative o Painel de Leitura clicando em Painel de Leitura > Desativado na aba Visualizar.

Passo 3: Avance e clique em Adicionar Colunas na aba Visualizar.

Passo 3: Na caixa de diálogo Mostrar Colunas, clique no botão Nova Coluna.

Passo 4: Na caixa de diálogo Nova Coluna, digite Domínio na caixa Nome e mantenha Texto selecionado tanto na caixa Tipo quanto na caixa Formato, por fim, clique no botão OK.

Passo 5: Agora você volta à caixa de diálogo Mostrar Colunas, selecione o Domínio na caixa Mostrar estas colunas nesta ordem, mova-o abaixo do item De e clique no botão OK.

Passo 6: Agora você volta à pasta de email aberta, selecione todas as mensagens de email pressionando simultaneamente as teclas Ctrl + A.

Passo 7: Pressione as teclas Alt + F11 ao mesmo tempo para abrir a janela Microsoft Visual Basic for Applications; depois clique em Inserir > Módulo, em seguida cole o seguinte código VBA no módulo.

VBA: Ordenar e Agrupar por domínio do remetente

Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub

Passo 8: Execute este código VBA pressionando a tecla F5 ou o botão Executar na Barra de Ferramentas.

Passo 9: Agora, o domínio de cada remetente é extraído e preenchido na coluna Domínio.

A. Para ordenar as mensagens de email por domínios de remetentes, basta clicar no cabeçalho da coluna Domínio no topo de todas as mensagens de email;

B. Para agrupar as mensagens de email por domínios de remetentes, basta clicar com o botão direito no cabeçalho da coluna Domínio e selecionar Agrupar Por Este Campo na lista suspensa. Veja a captura de tela abaixo:

Notas:

(1) Este código VBA funciona bem no Outlook 2013 e 2010, mas não funciona no Outlook 2007.
(2) Você pode salvar facilmente a visualização personalizada com Como salvar e copiar configurações de visualização para outras pastas no Outlook?

Artigo Relacionado

Como visualizar o domínio dos remetentes na lista de emails no Outlook?

---

Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

Lista de Recursos do Kutools para Outlook Baixar Versão Gratuita Atualizar para Profissional