2 métodos para mostrar automáticamente elementos del calendario privado en un color específico en Outlook

Para distinguir más fácilmente los elementos privados de los no privados en el calendario, puede que desee mostrar automáticamente los elementos privados en un color específico, como el rojo, para resaltarlos. En este artículo le mostraremos dos maneras de lograrlo.

Muchos usuarios prefieren clasificar los elementos del calendario en función de si son privados o no. Dado que, en el calendario, los elementos privados no tienen diferencias manifiestas en la visión de forma predeterminada, para identificar elementos privados mucho más fácilmente, puede permitir que Outlook los muestre automáticamente en un color específico. Aquí te enseñaremos 2 enfoques para conseguirlo.

Método 1: utilizar "formato condicional"

1. Para empezar, abre Outlook y accede al panel "Calendario".
2. Luego, vaya a la pestaña "Ver" y cambie la vista a "Calendario".
3. A continuación, presione el botón "Ver configuración".
4. En el cuadro de diálogo emergente, haga clic en "Formato condicional".
5. Más tarde, en el cuadro de diálogo siguiente, haga clic en "Agregar" e introduzca un nombre, como "Privado".
6. Luego, seleccione un color específico, como "Rojo oscuro" para mi instancia.
7. Después de eso, haga clic en el botón "Condición".
8. En el siguiente cuadro de diálogo, cambie a la pestaña "Avanzado" y agregue el siguiente filtro:

Sensitivity > equals > private

9. Finalmente, haga clic en "Agregar a la lista" y varios "Aceptar" para guardar esta regla de formato.
10. A partir de ahora, todos los elementos del calendario privado se mostrarán en "Rojo oscuro".

Método 2: use "Categorización automática de color" en VBA

1. En primer lugar, cree una nueva categoría de color llamada "Privado" con un color específico.
2. A continuación, inicie el editor de Outlook VBA de acuerdo con "Cómo ejecutar código VBA en su Outlook".
3. Luego, coloque el siguiente código en el proyecto "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. Finalmente, reinicie Outlook para activar esta macro.
5. Ahora puedes intentarlo.

• Presenta un elemento del calendario predeterminado.
• Luego, cámbielo a "Privado".
• De inmediato, se asignará la categoría de color "Privado" a este elemento, como se muestra en la siguiente captura de pantalla.

Rescata tus valiosos datos de Outlook

Dado que Outlook es vulnerable, muchos usuarios han estado sujetos a corrupción de PST. En general, al encontrarlo, primero puede probar el herramienta de reparación de la bandeja de entrada para arreglar el archivo. Sin embargo, si falla, puede recurrir a una utilidad externa más potente y confiable, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupción sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com