Note: The other languages of the website are Google-translated. Back to English

Como agrupar e classificar e-mails por mês no Outlook?

Os e-mails são classificados por data de recebimento na caixa de entrada do Outlook por padrão. No entanto, não existe um comando para classificar ou agrupar todos os e-mails pelo mês recebido. Aqui, vou apresentar uma forma de agrupar e classificar todos os e-mails por mês no Outlook.

Agrupe ou classifique e-mails por mês no Outlook usando o código VBA


Agrupe ou classifique e-mails por mês no Outlook usando o código VBA

Este método irá guiá-lo para criar uma nova coluna chamada Mês, em seguida aplicar uma macro VBA para extrair o mês recebido para a nova coluna e então você pode classificar ou agrupar todos os emails pela coluna Mês no Outlook.

1.  Abra uma pasta de e-mail onde você classificará ou agrupará e-mails por mês e clique no Configurações de exibição botão no Veja guia no Outlook 2010 e versão posterior.

doc classificar e-mails por mês 1

NOTA No Outlook 2007, você pode clicar no Veja > Visão atual > Personalize a visualização atual.

2. Na vinda Configurações da Visualização Avançada / Personalizar Visualização caixa de diálogo, clique no botão colunas botão (ou Campos botão).

doc classificar e-mails por mês 2

3. No Mostrar coluna / campos caixa de diálogo, clique no botão Nova Coluna botão (ou Novo campo botão) para abrir a caixa de diálogo Nova Coluna / Campo, digite Mês no Nome caixa, manter Texto selecionado em ambos para cada ocasião caixa e Formato e, em seguida, clique no OK botão. Veja a imagem abaixo:

doc classificar e-mails por mês 3

4.  Agora você volta para o Mostrar colunas / campos caixa de diálogo, clique para selecionar o Mês item no Mostre essas colunas ou Campos) nesta ordem caixa e mova-a para baixo da Recebido clicando no botão Mover para cima botão e, por fim, clique no OK botão.

doc classificar e-mails por mês 4

5. Clique no OK botão para fechar o Configurações da Visualização Avançada / Personalizar Visualização caixa de diálogo.

6. Selecione todos os e-mails na pasta de abertura selecionando qualquer e-mail e pressionando o Ctrl + A chaves simultaneamente.

Nota: Se o Painel de leitura está ligando, feche-o clicando no Veja > Painel de leitura > Off.

7. Abra o Microsoft Visual Basic para Aplicações janela pressionando o outro + F11 enquanto isso, e depois clique no inserção > Módulo.

8. Cole a seguinte macro VBA no módulo:

VBA: classificar ou agrupar e-mails por mês

Sub ListSelectionMonth()
	Dim aObj As Object
	Dim oProp As Outlook.UserProperty
	Dim sMonth
	
	On Error Resume Next
	
	For Each aObj In Application.ActiveExplorer.Selection
		Set oMail = aObj
		
		sMonth = Month(oMail.ReceivedTime)
		Set oProp = oMail.UserProperties.Add("Month", olText, True)
		oProp.Value = sMonth
		oMail.Save
		
		Err.Clear
	Next
	
End Sub

9. aperte o F5 chave para executar esta macro VBA.

10. Agora, cada mês recebido de e-mail é extraído para o seguinte Mês coluna. Para classificar todos os e-mails por mês nesta pasta de abertura, basta clicar no cabeçalho da coluna de Mês. Veja a imagem:

doc classificar e-mails por mês 5

Nota: Para agrupar todos os e-mails por mês nesta pasta de abertura, clique com o botão direito no cabeçalho da coluna de Mês, e depois selecione o Agrupar por este campo no menu do botão direito. Veja a imagem:

doc classificar e-mails por mês 6


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (14)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isso funciona para e-mails que já estão na caixa de entrada, mas NÃO cria/introduz dados no campo "Mês" para novos e-mails!
Este comentário foi feito pelo moderador no site
Novo e-mail não será recebido na categoria de mês especificada. Novo correio vem unedr nenhuma categoria. Pf corrijam o problema
Este comentário foi feito pelo moderador no site
Não existe uma maneira de selecionar todos os e-mails automaticamente antes do for...próximo loop?
Este comentário foi feito pelo moderador no site
É possível criar macro VBA para agrupar e classificar emails por semana?
Este comentário foi feito pelo moderador no site
Eu quero :

1. Agrupe e-mails por assunto

2. Classifique-os por número de e-mails dentro do grupo

Como posso conseguir isso?
Este comentário foi feito pelo moderador no site
Eu quero isso também
Este comentário foi feito pelo moderador no site
Ou seja, quero agrupar os emails por assunto e colocar o grupo com o máximo de emails no topo. Como eu posso fazer isso?
Este comentário foi feito pelo moderador no site
Eu usei o vba acima e deixe-me começar dizendo que isso ajuda no micro gerenciamento que não está disponível por padrão. isso é benéfico para arquivamento e armazenamento e não é algo que deveria funcionar automaticamente para e-mails recebidos. Consegui modificar isso um pouco e também adicionar uma coluna de ano. Então, para todos os e-mails, consegui um mês e ano para poder agrupar e reagrupar (por ano e depois por mês). O que eu encontrei, no entanto, é que há algum tipo de limitação no número de itens pelos quais ele passa e existe (não sei por quê). Por exemplo, se eu selecionar uma pasta com 18k-19k e-mails, ela passará apenas por alguns e, no final da execução, não atualizará todos os e-mails com o necessário. No entanto, se você executar em lotes menores, ele funcionará perfeitamente bem. A parte dolorosa aqui é continuar selecionando em lotes. Isso é uma dor para pessoas como eu que desejam gerenciar ou melhor organizar anos ou e-mails que são executados em 6 dígitos em números. Alguém aqui foi capaz de descobrir isso ou disposto a ir em uma farra de solução de problemas para corrigir isso ou como isso pode ser resolvido?
Este comentário foi feito pelo moderador no site
O código funciona como no artigo. Mas não se aplica a novas letras. Toda vez que você precisar ir ao módulo criado no Visual Basik e pressionar F5.
Este comentário foi feito pelo moderador no site
Isso também ajudará.
Este comentário foi feito pelo moderador no site
Olá aus Hamburgo, super Sache. Danke dafür. :)Kleines Problema nur.Ich hatte zuerst den Code so angepasst das er mir Jahr und Monat zusammensetzt.
SublistaSeleçãoAnoMês()
Dim aObj As Object
Dim oProp como Outlook.UserProperty
Dim oMail como objeto
Dim sMês
Escurecer ano
Dim sAnoMês

On Error Resume Next

Para cada aObj em Application.ActiveExplorer.Selection
Definir oMail = aObj

sMês = Mês(oMail.ReceivedTime)
sAno = Ano(oMail.ReceivedTime)

Se sMês < 10 Então
sMês = 0 & sMês
Outro
sMês = sMês
Se acabar

sAnoMês = sAno & "/" & sMês
Set oProp = oMail.UserProperties.Add("JahrMonat", olText, True)
oProp.Value = sAnoMês
o Mail.Salvar

Err.Clear
Seguinte

End Sub

Hat wunderbar geklappt.Nun ist mir in einem Ordner aufgefallen das eine Gruppierung zuersnach Jahr und dann nach Monat die Übersichtlichkeit noch erhöht.Habe als den ursprünglichen Code genommen.Dort bleibt dann allerdings die Spalte leer.
SubListaSeleçãoMês()
Dim aObj As Object
Dim oProp como Outlook.UserProperty
Dim oMail como objeto
Dim sMês

On Error Resume Next

Para cada aObj em Application.ActiveExplorer.Selection
Definir oMail = aObj

sMês = Mês(oMail.ReceivedTime)

Se sMês < 10 Então
sMês = 0 & sMês
Outro
sMês = sMês
Se acabar

Set oProp = oMail.UserProperties.Add("Monat", olText, True)
oProp.Value = sMonth
o Mail.Salvar

Err.Clear
Seguinte

End Sub

Macht mich grad etwas ratlos.
Rato Freue mich über jeden
VGArminGenericName
Este comentário foi feito pelo moderador no site
Desculpe. Não vi que a página é de origem em inglês. #embaraçado
O Google tradutor está cada vez melhor. :D
Olá de Hamburgo,
coisas boas. Obrigado por isso. :)
Apenas um pequeno problema.
Eu havia adaptado primeiro o código para que ele colocasse o ano e o mês juntos para mim.

SublistaSeleçãoAnoMês()
Dim aObj As Object
Dim oProp como Outlook.UserProperty
Dim oMail como objeto
Dim sMês
Escurecer ano
Dim sAnoMês

On Error Resume Next

Para cada aObj em Application.ActiveExplorer.Selection
Definir oMail = aObj

sMês = Mês(oMail.ReceivedTime)
sAno = Ano(oMail.ReceivedTime)

Se sMês < 10 Então
sMês = 0 & sMês
Outro
sMês = sMês
Se acabar

sAnoMês = sAno & "/" & sMês
Set oProp = oMail.UserProperties.Add("YearMonth", olText, True)
oProp.Value = sAnoMês
o Mail.Salvar

Err.Clear
Seguinte

End Sub

Isso funcionou maravilhosamente.
Agora notei em uma pasta que um agrupamento primeiro por ano e depois por mês aumenta a clareza.
Usei o código original.
No entanto, a coluna permanece vazia.

SubListaSeleçãoMês()
Dim aObj As Object
Dim oProp como Outlook.UserProperty
Dim oMail como objeto
Dim sMês

On Error Resume Next

Para cada aObj em Application.ActiveExplorer.Selection
Definir oMail = aObj

sMês = Mês(oMail.ReceivedTime)

Se sMês < 10 Então
sMês = 0 & sMês
Outro
sMês = sMês
Se acabar

Set oProp = oMail.UserProperties.Add("Month", olText, True)
oProp.Value = sMonth
o Mail.Salvar

Err.Clear
Seguinte

End Sub

Estou um pouco perplexo no momento.

Fico feliz com qualquer conselho

VG
Armin


Traduzido com http://www.DeepL.com/Translator (versão gratuita)
Este comentário foi feito pelo moderador no site
Estranho.
Fez um recomeço. Agora funciona. Desculpe por incomodar.
Obrigado de novo :) <3
Este comentário foi feito pelo moderador no site
Eu tenho o Outlook 2007 e experimentei o VBA. Primeiro eu tive o problema de que apenas 1 e-mail de todos recebiam o show do mês.
Eu precisava marcar todos os e-mails primeiro e depois pressionar VBA F5 para mostrar em todos os e-mails do mês.

uma parte ruim desse código é que todos os meses (1, 2, 3, 4, 5, 6, 7, 8, 9) são agrupados na posição errada na frente de 10, 11, 12
existe alguma sequência VBA adicional que adiciona aos primeiros 9 meses a 0? logo 01, 02, 03 etc?

como tenho vários anos em algumas pastas, faz sentido agrupar esses e-mails primeiro por ano e depois por mês.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos