Como classificar os emails por mês no Outlook?
Se houver muitos e-mails em sua caixa de entrada, para fazer com que a caixa de correio pareça limpa e bem organizada, você pode armazená-los ou arquivá-los em pastas diferentes com base no mês específico do tempo de recebimento dos e-mails, conforme a captura de tela mostrada abaixo. Normalmente, você pode criar as pastas manualmente e depois movê-las uma a uma. Obviamente, essa abordagem será demorada e problemática. Neste artigo, falarei sobre um código VBA para resolver essa tarefa de forma rápida e fácil.
Classifique os e-mails com base no mês com o código VBA
Para mover os e-mails para pastas diferentes com base no mês, aplique o código VBA abaixo:
1. Clique para selecionar o Caixa de entrada pasta que você deseja classificar os e-mails.
2. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. Clique inserção > Móduloe cole o código a seguir na janela do módulo.
Código VBA: Classifique os emails com base no mês
Sub ClassifyEmailsbyMonth()
'Updateby ExtendOffice
Dim xCurFolder As Folder
Dim xMoveFolder As Folder
Dim xMail As MailItem
Dim I As Long
Dim xYear As String, xMonth As String
On Error Resume Next
Set xCurFolder = Application.ActiveExplorer.CurrentFolder
For I = xCurFolder.Items.Count To 1 Step -1
DoEvents
If xCurFolder.Items.Item(I).Class = olMail Then
Set xMail = xCurFolder.Items.Item(I)
xYear = Year(xMail.ReceivedTime)
xMonth = Month(xMail.ReceivedTime)
Set xMoveFolder = Nothing
Set xMoveFolder = xCurFolder.Folders(xYear & "." & xMonth)
If xMoveFolder Is Nothing Then
Set xMoveFolder = xCurFolder.Folders.Add(xYear & "." & xMonth)
End If
xMail.Move xMoveFolder
End If
Next
Set xMoveFolder = Nothing
Set xCurFolder = Nothing
End Sub
4. Então aperte F5 key para executar este código, e todos os emails na pasta Inbox selecionada são classificados por mês específico do tempo de recebimento dos emails, veja a captura de tela:
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.