Como limpar todas as categorias do Outlook?
Suponha que muitos itens sejam aplicados à categoria de cores em seu Outlook. Se você precisar limpar todas essas categorias dos itens, como poderia lidar com esse trabalho de forma rápida e fácil no Outlook?
Limpe todas as categorias de uma pasta específica com o recurso Limpar todas as categorias
Limpe todas as categorias de uma conta específica com o código VBA
Limpe todas as categorias de uma pasta específica com o recurso Limpar todas as categorias
Se você só precisa limpar as categorias em uma pasta específica, faça o seguinte:
1. Clique na pasta da qual deseja remover as categorias de cores e pressione Ctrl + A para selecionar todos os itens.
2. Em seguida, clique com o botão direito e escolha Categorizar > Limpar todas as categorias no menu de contexto, veja a captura de tela:
3. E então, todas as categorias de cores nesta pasta específica foram apagadas de uma vez.
Limpe todas as categorias de uma conta específica com o código VBA
Para limpar todas as categorias de todos os itens, como e-mails, tarefas, contatos, notas e assim por diante de uma conta, o código VBA abaixo pode lhe fazer um favor:
1. Clique em um e-mail da conta da qual deseja limpar todas as categorias e, em seguida, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole a macro a seguir no Módulo Janela.
Código VBA: limpe todas as categorias de uma conta específica:
Sub BatchClearAllCategories_AllOutlookItems()
Dim xCurrentFolder As Outlook.Folder
Dim xFolder As Folder, xCurFolder As Folder
Dim xPos As Integer
Dim xRootFldName As String
Set xCurFolder = Outlook.ActiveExplorer.CurrentFolder
xPos = InStr(3, xCurFolder.FolderPath, "\")
If xPos > 0 Then
xRootFldName = Mid(xCurFolder.FolderPath, 3, xPos - 3)
Else
xRootFldName = Mid(xCurFolder.FolderPath, 3, Len(xCurFolder.FolderPath) - 2)
End If
Set xCurrentFolder = Outlook.Application.Session.Folders(xRootFldName)
For Each xFolder In xCurrentFolder.Folders
Call ProcessFolders(xFolder)
Next
MsgBox "Clear completed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFld As Outlook.Folder)
Dim xItem As Object
Dim i As Integer
Dim xSubfolder As Outlook.Folder
If CurFld.Items.Count > 0 Then
For i = CurFld.Items.Count To 1 Step -1
Set xItem = CurFld.Items.Item(i)
xItem.Categories = ""
xItem.Save
Next
End If
If CurFld.Folders.Count = 0 Then Exit Sub
For Each xSubfolder In CurFld.Folders
Call ProcessFolders(xSubfolder)
Next
End Sub
3. Então aperte F5 para executá-lo e, em seguida, uma caixa de prompt é exibida para lembrá-lo de que todas as categorias da conta selecionada foram apagadas, consulte 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.