Outlook에서 특정 색으로 개인 일정 항목을 자동 표시하는 2 가지 방법

Outlook 솔루션 2025 년 9 월 29 일

캘린더에서 비공개 항목과 비공개 항목을 더 쉽게 구별하기 위해 빨간색과 같은 특정 색상으로 비공개 항목을 자동으로 표시하여 강조 표시 할 수 있습니다. 이 post 이를 실현하는 2 가지 방법을 소개합니다.

많은 사용자가 개인용인지 여부에 따라 일정 항목을 분류하는 것을 선호합니다. 일정에서 개인 항목은 기본적으로 시각적 차이가 없기 때문에 개인 항목을 훨씬 쉽게 식별 할 수 있도록 Outlook에서 특정 색상으로 자동 표시하도록 할 수 있습니다. 여기서 우리는 그것을 얻기위한 두 가지 접근법을 가르 칠 것입니다.

방법 1 : "조건부 서식"사용

로tart, Outlook을 시작하고 "캘린더"창에 액세스합니다.
그런 다음 "보기"탭으로 이동하여보기를 "캘린더"로 변경합니다.
다음으로 "설정보기"버튼을 누르십시오.
팝업 대화 상자에서 "조건부 서식"을 클릭합니다.
나중에 후속 대화 상자에서 "추가"를 클릭하고 "비공개"와 같은 이름을 입력합니다.
그런 다음 내 인스턴스에 대해 "Dark Red"와 같은 특정 색상을 선택합니다.
그 후“Condition”버튼을 클릭합니다.
다음 대화 상자에서 "고급"탭으로 전환하고 다음 필터를 추가합니다.

Sensitivity > equals > private

마지막으로 "목록에 추가"와 여러 "확인"을 클릭하여이 서식 규칙을 저장합니다.
이제부터는 모든 개인 캘린더 항목이 "Dark Red"로 표시됩니다.

방법 2 : VBA에서 "자동 색상 분류"사용

먼저 특정 색상으로 "비공개"라는 새 색상 범주를 만듭니다.
다음으로 "Outlook에서 VBA 코드를 실행하는 방법".
그런 다음 "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

결국 restart Outlook에서이 매크로를 활성화합니다.
이제 시도해 볼 수 있습니다.

기본 캘린더의 항목에 대한 피치.
그런 다음 "비공개"로 변경하십시오.
다음 스크린 샷과 같이 즉시 "Private"색상 범주가이 항목에 할당됩니다.

귀중한 Outlook 데이터를 구하세요

Outlook은 취약하기 때문에 많은 사용자가 PST 손상의 대상이되었습니다. 일반적으로 만났을 때 먼저 시도해 볼 수 있습니다. 받은 편지함 수리 도구 파일을 수정합니다. 그러나 실패하면 다음과 같이 더 강력하고 안정적인 외부 유틸리티에 의지 할 수 있습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL 손상 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM