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

 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:

doc limpar categoria 1

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:

doc limpar categoria 2


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 (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL