为了更容易区分日历中的私人项目和非私人项目,您可能希望以特定颜色自动显示私人项目,例如红色以突出显示它们。 这个ost 将介绍2种实现方式。
许多用户更喜欢根据日历项是否私有对它们进行分类。 由于在日历中,私人项目默认在视觉上没有明显差异,为了更容易识别私人项目,您可以让 Outlook 自动以特定颜色显示它们。 在这里,我们将教您2种获取方法。
方法一:使用“条件格式”
- 对于作为tart,启动 Outlook 并访问“日历”窗格。
- 然后,转到“查看”选项卡并将视图更改为“日历”。
- 接下来,点击“查看设置”按钮。
- 在弹出的对话框中,点击“条件格式”。
- 稍后,在随后的对话框中,单击“添加”并输入一个名称,例如“私人”。
- 然后,为我的实例选择一种特定的颜色,例如“深红色”。
- 之后,单击“条件”按钮。
- 在下一个对话框中,切换到“高级”选项卡并添加以下过滤器:
敏感度 > 等于 > 隐私
- 最后点击“Add to List”和几次“OK”保存这个格式规则。
- 从现在开始,所有私人日历项目都将以“深红色”显示。
方法 2:在 VBA 中使用“自动颜色分类”
- 首先,创建一个名为“Private”的具有特定颜色的新颜色类别。
- 接下来,根据“如何在 Outlook 中运行 VBA 代码“。
- 然后,将以下代码放入“ThisOutlookSession”项目中。
Private WithEvents objCalendarItems 作为 Outlook.Items Private Sub Application_Startup() 设置 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 如果 objCalendarItem.Sensitivity = olPrivate Then objC alendarItem.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 设置 objCalendarItem = Item 如果 objCalendarItem.Sensitivity = olPrivate Then ob jCalendarItem.Categories = “私人”否则调用 RemovePrivateCategory(objCalendarItem, “Private”) 如果 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, " ,") 如果 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
- 最终,水库tart Outlook 以激活此宏。
- 现在,你可以试试看。
- 推介默认日历中的项目。
- 然后,将其更改为“私人”。
- 立即,“私人”颜色类别将分配给该项目,如下面的屏幕截图所示。
拯救您宝贵的 Outlook 数据
由于 Outlook 易受攻击,因此许多用户都曾经遭受过 PST 损坏。 一般遇到的时候可以先试试 收件箱维修工具 修复文件。 然而,如果它失败了,您可以求助于更强大和更可靠的外部实用程序,例如 DataNumen Outlook Repair.
作者简介:
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.,它是数据恢复技术领域的世界领先者,包括 sql损坏 和 outlook 修复软件产品。 欲了解更多信息,请访问 datanumen