Outlook받은 편지함에 읽지 않은 전자 메일이 너무 많은 경우 경고를받는 방법

Outlook 솔루션 2025 년 9 월 29 일

일부 사용자는 하위 폴더를 포함하여 받은 편지함에 읽지 않은 전자 메일이 너무 많은 경우 Outlook에서 경고를 표시하기를 원합니다. Outlook은 이러한 기능을 제공하지 않지만 여전히 VBA 코드로 구현할 수 있습니다. 이 문서에서는 이 코드를 보여줍니다.

바쁜 일정으로 인해 받은 편지함에 읽지 않은 메일이 많이 남을 때가 있습니다. 점점 더 많은 이메일이 쌓이면 나중에 처리하는 것이 상당히 지루하고 번거로운 작업이 될 것입니다. 이 경우 읽지 않은 전자 메일 수가 특정 제한을 초과하면 Outlook에서 알림을 받을 수 있기를 바랄 수 있습니다. 다음에서 이 기능을 달성하는 방법을 알려드리겠습니다.

읽지 않은 이메일이 너무 많으면 경고 받기

에tart와 함께 평소와 같이 Outlook 프로그램을 시작하십시오.
그런 다음 기본 Outlook 창에서 "Alt + F11" 키 버튼을 누릅니다.
그런 다음 "Microsoft Visual Basic for Applications" 창으로 들어가 "ThisOutlookSession" 프로젝트를 찾아 열어야 합니다.
이후에 다음 VBA 코드를이 프로젝트에 복사해야합니다.

Private objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private lUnreadItemCount As Long

Private Sub Application_Startup()
    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
 
    lUnreadItemCount = 0
    Call CountUnreadEmails(objInbox, lUnreadItemCount)
 
    'If there are more than 10 unread emails
    If lUnreadItemCount > 10 Then
       MsgBox "Too many unread emails in Inbox!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
    End If
End Sub

Private Sub objItems_ItemAdd(ByVal Item As Object)
    Call CountUnreadEmails(objInbox, lUnreadItemCount)
 
    lUnreadItemCount = 0
    If lUnreadItemCount > 10 Then
       MsgBox "Too many unread emails!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
    End If
End Sub

Private Sub CountUnreadEmails(ByVal objFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objUnreadItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    Set objUnreadItems = objFolder.Items.Restrict("[Unread] = True")
    lCount = objUnreadItems.count + lCount
 
    'Process all subfolders under Inbox recursively
    If objFolder.Folders.count > 0 Then
       For Each objSubfolder In objFolder.Folders
           Call CountUnreadEmails(objSubfolder, lCount)
       Next
    End If
End Sub

그 후에이 코드에 서명해야합니다.
나중에 현재 창을 종료하고 Outlook 매크로 설정을 변경하여 디지털 서명된 매크로를 활성화합니다.
마지막으로, 당신은 res 수 있습니다tar이 새 매크로를 활성화하려면 Outlook을 선택하십시오.
지금부터 매번tart Outlook과 새 이메일이 사서함에 도착하면 Outlook은 Inbox와 해당 하위 폴더에서 읽지 않은 이메일 수를 자동으로 확인합니다.
숫자가 미리 정의된 제한을 초과하면 Outlook에서 다음 스크린샷과 같이 경고합니다.

갑작스러운 충돌 후 Outlook 데이터 검색

Outlook은 오류를 철저히 제거할 수 없습니다. 장착 오류는 프롬프트 없이 충돌로 이어질 수 있습니다. 심각한 충돌은 순식간에 Outlook 데이터 파일을 손상시킬 수 있습니다. 따라서 정기적으로 데이터를 백업하고 다음과 같은 강력한 외부 복구 도구를 확보하는 등 충분한 예방 조치를 취해야 합니다. DataNumen Outlook Repair. 그것은 당신을 도울 수 있습니다 PST 수리 쉽게 파일.

저자 소개 :

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