Outlook에서 회신하지 않은 중요한 전자 메일을 자동 강조 표시하는 방법

Outlook 솔루션 2025 년 9 월 29 일

중요한 전자 메일에 회신하는 것을 기억하기 위해 회신하지 않은 중요한 전자 메일을 특정 매니페스트 색상으로 표시하여 강조 표시 할 수 있습니다. 자,이 기사는 그것을 얻는 방법을 알려줄 것입니다.

중요한 이메일을 놓치고 제 시간에 답장하지 않은 적이 있습니까? 이러한 문제가 발생한 경우 Outlook에서 회신하지 않은 중요한 전자 메일을 강조 표시 할 수 있기를 바랍니다. 이제 다음에서 VBA로 달성하는 방법을 안내합니다. VBA에 익숙하지 않다면 이전 기사를 참조하십시오 –“Outlook에서 VBA 코드를 실행하는 방법"한편.

회신하지 않은 중요한 이메일을 자동 강조 표시

처음에는 Outlook의 "Alt + F11"을 통해 VBA 편집기에 액세스합니다.
그런 다음 새 창에서 아래 코드를 "ThisOutlookSession"프로젝트에 복사합니다.

Private WithEvents objSentFolder As Outlook.Folder
Private WithEvents objSentMails As Outlook.Items
Private objInbox As Outlook.Folder

'On startup, auto update the replied status of the emails in Inbox
Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentMails = objSentFolder.Items
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Call UpdateRepliedStatus(objInbox)
End Sub

'After sending an email, auto update the replied status of the emails in Inbox
Private Sub objSentMails_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       Call UpdateRepliedStatus(objInbox)
    End If
End Sub

Private Sub UpdateRepliedStatus(ByVal objFolder As Outlook.Folder)
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objRepliedProperty As Outlook.UserProperty
    Dim strRepliedStatus As String
 
    'Write the replied status to a new user property of emails
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items(i).Class = olMail Then
           Set objMail = objFolder.Items(i)
 
           Set objRepliedProperty = objMail.UserProperties.Find("Replied", True)
           If objRepliedProperty Is Nothing Then
              Set objRepliedProperty = objMail.UserProperties.Add("Replied", olText, True)
           End If
 
           strRepliedStatus = objMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")
           If (Not (strRepliedStatus = 102)) And (Not (strRepliedStatus = 103)) Then
              objRepliedProperty.Value = "No"
           Else
              objRepliedProperty.Value = "Yes"
           End If
 
           objMail.Save
        End If
    Next
End Sub

After that, move cursor into the “Application_Startup” macro and hit “F5”.
나중에이 창을 닫으십시오.
그런 다음 아래 단계에 따라 Inbox의 항목에 대한 조건부 서식 규칙을 만듭니다.

먼저 "받은 편지함"폴더로 전환합니다.
그런 다음 "보기"탭으로 이동하여 "설정보기"를 클릭합니다.
새 대화 상자에서 "조건부 서식"버튼을 클릭합니다.
다음 "조건부 서식"대화 상자에서 "추가"를 클릭하고 "응답되지 않은 중요 이메일"과 같은 새 규칙의 이름을 입력합니다.
나중에“Font…”버튼을 클릭하고 팝업“Font”대화 상자에서 글꼴 스타일과 색상을 설정합니다.
글꼴을 지정한 후 "조건부 서식"대화 상자에서 "조건…"을 누르십시오.
그런 다음 "필터"화면의 "고급"탭에서 두 개의 필터를 추가합니다.

"중요도"> "같음"> "높음"
“답장 함”>“정확히 일치 함”>“아니요”

궁극적으로 일련의 "확인"을 클릭하여이 서식 규칙을 저장합니다.

Inbox로 돌아 오면 회신하지 않은 모든 중요한 이메일이 특정 글꼴과 색상으로 강조 표시됩니다.

Outlook 데이터 보호를 느리게하지 마십시오

Myriad users still hold the thoughts that data corruption will never occur to them. In reality, such ideas are totally wrong and risky. Most of time, a tiny mistake can result in data loss with ease. For instance, if you accidentally click on a malicious link in unknown emails, your Outlook file may be virus infected and even become damaged. Hence, you should keep cautious all the time in data protection, such as persisting in regular PST backup and preparing a potent fix tool, like DataNumen Outlook Repair, 이는 수 Outlook 수정 순식간에 문제.

저자 소개 :

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