Outlook에서 플래그가 지정된 모든 항목을 계산하는 3 가지 빠른 방법

Outlook 솔루션 2025 년 9 월 29 일

Outlook에서는 전자 메일, 연락처 등에 플래그 지정과 같은 후속 조치를 위해 항목에 플래그를 지정할 수 있습니다. 이 시나리오에서는 플래그가 지정된 항목을 계산할 수 있습니다. 여기서 우리는 당신과 3 가지 접근 방식을 공유 할 것입니다.

Outlook에서 후속 조치를 위해 많은 항목에 플래그를 지정했을 수 있습니다. 예를 들어 나중에이 연락처에 전화를 걸 계획 인 연락처에 플래그를 지정할 수 있습니다. 너무 많은 플래그가 지정된 항목에 직면하여 개수를 얻고 싶을 수 있습니다. 이하, 3 가지 방법을 소개합니다.

방법 1 : 검색 폴더를 통해 계산

플래그가 지정된 이메일 수를 세고 싶다면 검색 폴더를 사용할 수 있습니다. 자세한 단계는 다음과 같습니다.

에tar메일 탐색 창에서 "검색 폴더"를 마우스 오른쪽 버튼으로 클릭합니다.
그런 다음 컨텍스트 메뉴에서 "새 검색 폴더"를 선택합니다.
팝업 대화 상자에서 "후속 조치 플래그가 지정된 메일"을 선택하고 "확인"을 클릭합니다.
마지막으로 다음 스크린 샷과 같이 검색 폴더에 플래그가 지정된 총 이메일 수가 표시됩니다.

방법 2 : 할 일 목록에서 계산

이메일뿐만 아니라 연락처, 연락처 그룹 등에 플래그를 지정한 경우 이러한 플래그가 지정된 모든 항목의 총 개수를 가져올 수 있습니다. 이 상황에서 다음과 같은 방법을 사용할 수 있습니다.

먼저 "Ctrl + 4"를 눌러 작업 탐색 창으로 전환합니다.
그런 다음 아래 이미지와 같이 플래그가 지정된 모든 항목을 볼 수있는 "To-Do List"에 액세스합니다.
다음으로,이 모든 항목을 선택하고“Enter”키 버튼을 눌러 일괄 적으로 엽니 다.
결과적으로 다음 그림과 같이 너무 많은 항목을 열면 경고가 표시됩니다. 경고에는 플래그가 지정된 항목의 총 수가 있습니다.

방법 3 : Outlook VBA로 계산

플래그가 지정된 모든 항목의 총 개수를 얻고 싶을뿐만 아니라 별도의 플래그가 지정된 항목 유형의 개수를 얻고 싶을 수도 있습니다. 이 점에 대한 해결책이 있습니다.

로tart, p를 참조하여 Outlook VBA 편집기에 액세스ost "Outlook에서 VBA 코드를 실행하는 방법".
그런 다음 아래의 VBA 코드를 모듈 또는 프로젝트에 복사하십시오.

Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

마지막으로 "CountFlaggedItems"서브 루틴을 클릭하고 "F5"버튼을 누릅니다.
매크로가 완료되면 아래 그림과 같이 플래그가 지정된 모든 항목의 총 개수를 묻는 메시지가 표시됩니다.

성가신 Outlook 문제 처리

Outlook에서 Outlook 문제가 때때로 발생할 수 있습니다. 따라서, 당신은 최고 수준의 신뢰할 수있는 Outlook 수정 유틸리티, 같은 DataNumen Outlook Repair. Outlook 파일을 지능적으로 스캔하고 몇 분 안에 파일 오류를 복구 할 수 있습니다.

저자 소개 :

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