2 phương pháp để tự động hiển thị các mục lịch cá nhân bằng một màu cụ thể trong Outlook của bạn

giải pháp triển vọng Tháng Chín 29, 2025

Để dễ dàng phân biệt các mục riêng tư và không riêng tư trong lịch, bạn có thể muốn tự động hiển thị các mục riêng tư bằng một màu cụ thể, chẳng hạn như màu đỏ để làm nổi bật chúng. Bài viết này sẽ giới thiệu 2 cách để thực hiện điều đó.

Nhiều người dùng thích phân loại các mục lịch dựa trên việc chúng có riêng tư hay không. Vì theo mặc định, trong lịch, các mục riêng tư không có sự khác biệt rõ ràng về tầm nhìn nên để xác định các mục riêng tư dễ dàng hơn nhiều, bạn có thể để Outlook tự động hiển thị chúng theo một màu cụ thể. Ở đây chúng tôi sẽ dạy cho bạn 2 cách tiếp cận để có được nó.

Phương pháp 1: Sử dụng “Định dạng có điều kiện”

Trước tiên, hãy mở Outlook và truy cập vào mục “Lịch”.
Sau đó, chuyển sang tab “Xem” và thay đổi chế độ xem thành “Lịch”.
Tiếp theo, nhấn nút "Xem cài đặt".
Trong hộp thoại bật lên, nhấp vào “Định dạng có điều kiện”.
Sau đó, trong hộp thoại tiếp theo, hãy nhấp vào “Thêm” và nhập tên, chẳng hạn như “Riêng tư”.
Sau đó, chọn một màu cụ thể, chẳng hạn như “Đỏ đậm” chẳng hạn.
Sau đó, nhấp vào nút "Điều kiện".
Trong hộp thoại tiếp theo, chuyển sang tab “Nâng cao” và thêm bộ lọc sau:

Sensitivity > equals > private

Cuối cùng, nhấp vào “Thêm vào danh sách” và vài lần “OK” để lưu quy tắc định dạng này.
Từ giờ trở đi, tất cả các mục lịch riêng tư sẽ được hiển thị bằng màu “Đỏ đậm”.

Cách 2: Sử dụng “Auto Color Categorize” trong VBA

Trước hết, hãy tạo một danh mục màu mới có tên là “Riêng tư” với một màu cụ thể.
Tiếp theo, khởi chạy trình soạn thảo Outlook VBA theo “Cách chạy mã VBA trong Outlook của bạn".
Sau đó, đặt đoạn mã sau vào dự án “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

Cuối cùng, hãy khởi động lại Outlook để kích hoạt macro này.
Bây giờ, bạn có thể có một thử.

Quảng cáo chiêu hàng trên một mục trong lịch mặc định.
Sau đó, thay đổi nó thành “Riêng tư”.
Ngay lập tức, danh mục màu “Riêng tư” sẽ được chỉ định cho mục này, như thể hiện trong ảnh chụp màn hình sau.

Cứu dữ liệu Outlook có giá trị của bạn

Vì Outlook dễ bị tổn thương nên nhiều người dùng đã từng bị PST hỏng. Nói chung, khi gặp nó, trước tiên bạn có thể thử công cụ sửa chữa hộp thư đến để sửa tệp. Tuy nhiên, nếu thất bại, bạn có thể sử dụng một tiện ích bên ngoài mạnh mẽ và đáng tin cậy hơn, chẳng hạn như DataNumen Outlook Repair.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm tham nhũng sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm