2 métodos para mostrar automaticamente itens de calendário privado em uma cor específica em seu Outlook

Para distinguir mais facilmente itens privados de itens públicos no calendário, você pode optar por exibir automaticamente os itens privados em uma cor específica, como vermelho, para destacá-los. Este artigo apresentará duas maneiras de fazer isso.

Muitos usuários preferem classificar itens de calendário com base no fato de serem privados ou não. Como, no calendário, os itens particulares não têm diferenças manifestas na visão por padrão, para identificar os itens particulares com muito mais facilidade, você pode permitir que o Outlook os mostre automaticamente em uma cor específica. Aqui vamos ensinar-lhe 2 abordagens para obtê-lo.

Método 1: Use “Formatação Condicional”

1. Para começar, abra o Outlook e acesse o painel "Calendário".
2. Em seguida, vá para a guia "Exibir" e altere a exibição para "Calendário".
3. Em seguida, clique no botão "Exibir configurações".
4. Na caixa de diálogo pop-up, clique em “Formatação condicional”.
5. Mais tarde, na caixa de diálogo subsequente, clique em “Adicionar” e digite um nome, como “Privado”.
6. Em seguida, selecione uma cor específica, como “Dark Red” para minha instância.
7. Depois disso, clique no botão “Condição”.
8. Na próxima caixa de diálogo, mude para a guia “Avançado” e adicione o seguinte filtro:

Sensitivity > equals > private

9. Por fim, clique em “Add to List” e vários “OK” para salvar esta regra de formatação.
10. A partir de agora, todos os itens do calendário privado serão exibidos em “Vermelho escuro”.

Método 2: Use “Auto Color Categorize” no VBA

1. Primeiro, crie uma nova categoria de cores chamada “Private” com uma cor específica.
2. Em seguida, inicie o editor VBA do Outlook de acordo com “Como executar o código VBA no seu Outlook".
3. Em seguida, coloque o seguinte código no projeto “ThisOutlookSession”.

Private WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
     Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String)
    Dim varCategories As Variant
    Dim i As Long

    varCategories = Split(objCurrentItem.Categories, ",")

    If UBound(varCategories) >= 0 Then
       For i = 0 To UBound(varCategories)
           If Trim(varCategories(i)) = strCategory Then
              varCategories(i) = ""
              objCurrentItem.Categories = Join(varCategories, ",")
              Exit Sub
           End If
      Next
    End If
End Sub

4. Por fim, reinicie o Outlook para ativar essa macro.
5. Agora, você pode tentar.

• Lance um item no calendário padrão.
• Em seguida, altere para "Private".
• Imediatamente, a categoria de cor “Private” será atribuída a este item, conforme mostrado na captura de tela a seguir.

Resgate seus valiosos dados do Outlook

Como o Outlook é vulnerável, muitos usuários já estiveram sujeitos à corrupção do PST. Em geral, ao encontrá-lo, você pode primeiro tentar o ferramenta de reparo da caixa de entrada para corrigir o arquivo. No entanto, se falhar, você pode recorrer a um utilitário externo mais potente e confiável, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrupção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com