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

Para distinguir itens privados e não privados no calendário com mais facilidade, você pode querer mostrar automaticamente os itens privados em uma cor específica, como vermelho, para destacá-los. Este Post apresentará 2 maneiras de realizá-lo.

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 comotart, inicie 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:

Sensibilidade > igual a > privado

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.Cate gories = "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. Categorias = "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, "," ) Sair Sub End If Next End If End Sub

4. Eventualmente, restart Outlook para ativar esta 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