Per distinguere più facilmente gli elementi privati da quelli non privati nel calendario, potresti voler visualizzare automaticamente gli elementi privati con un colore specifico, ad esempio il rosso, per evidenziarli. Questo articolo illustrerà due modi per farlo.
Molti utenti preferiscono classificare gli elementi del calendario in base al fatto che siano privati o meno. Poiché, nel calendario, gli elementi privati non hanno differenze evidenti nella visione per impostazione predefinita, in modo da identificare gli elementi privati molto più facilmente, puoi lasciare che Outlook li mostri automaticamente in un colore specifico. Qui ti insegneremo 2 approcci per ottenerlo.
Metodo 1: utilizzare la "formattazione condizionale"
- Per iniziare, apri Outlook e accedi al riquadro "Calendario".
- Quindi, vai alla scheda "Visualizza" e cambia la visualizzazione in "Calendario".
- Successivamente, premi il pulsante "Visualizza impostazioni".
- Nella finestra di dialogo popup, fai clic su "Formattazione condizionale".
- Successivamente, nella finestra di dialogo successiva, fai clic su "Aggiungi" e inserisci un nome, ad esempio "Privato".
- Quindi, seleziona un colore specifico, come "Rosso scuro" per la mia istanza.
- Successivamente, fai clic sul pulsante "Condizione".
- Nella finestra di dialogo successiva, passa alla scheda "Avanzate" e aggiungi il seguente filtro:
Sensitivity > equals > private
- Infine, fai clic su "Aggiungi all'elenco" e diversi "OK" per salvare questa regola di formattazione.
- D'ora in poi, tutti gli elementi del calendario privato verranno visualizzati in "rosso scuro".
Metodo 2: utilizzare "Auto Color Categorize" in VBA
- Prima di tutto, crea una nuova categoria di colori chiamata "Privato" con un colore specifico.
- Successivamente, avvia l'editor VBA di Outlook in base a "Come eseguire il codice VBA in Outlook".
- Quindi, inserisci il seguente codice nel progetto "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
- Infine, riavvia Outlook per attivare questa macro.
- Ora puoi provare.
- Proponi un elemento nel calendario predefinito.
- Quindi, cambialo in "Privato".
- Immediatamente, la categoria di colore "Privato" verrà assegnata a questo elemento, come mostrato nello screenshot seguente.
Salva i tuoi preziosi dati di Outlook
Poiché Outlook è vulnerabile, molti utenti sono stati soggetti a corruzione PST. In generale, quando lo incontri, puoi prima provare il strumento di riparazione della posta in arrivo per riparare il file. Tuttavia, se fallisce, puoi ricorrere a un'utilità esterna più potente e affidabile, come DataNumen Outlook Repair.
Introduzione dell'autore:
Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corruzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com