Outlook 에서 플래그된 이메일의 개수를 어떻게 세나요？

Outlook 에서는 메시지, 연락처 또는 작업에 플래그를 지정하여 눈에 띄게 만들 수 있습니다. 하지만 때로는 Outlook 에 있는 플래그 지정 항목의 개수를 세야 할 필요가 있습니다. 이 작업을 Outlook 에서 어떻게 처리할 수 있을까요？

검색 폴더를 사용하여 한 계정 내의 플래그된 이메일 개수 세기

VBA 코드를 사용하여 모든 계정에서 플래그된 이메일 / 연락처 / 작업의 개수를 각각 세기

---

a name="a1">검색 폴더를 사용하여 한 계정 내의 플래그된 이메일 개수 세기

Outlook 계정에서 플래그 지정된 이메일의 개수를 세려면검색 폴더기능이 도움이 됩니다。 다음 단계를 따르세요：

1。 이메일 계정 아래에 있는검색 폴더를 마우스 오른쪽 버튼으로 클릭한 후새 검색 폴더를 선택하세요(스크린샷 참조)：

2。 그러면새 검색 폴더대화 상자가 열립니다。후속 조치를 위해 플래그 지정된 메일옵션을메일 읽기섹션에서 클릭하세요(스크린샷 참조)：

3。 그런 다음확인을 클릭하면 모든 플래그된 이메일이후속 조치용폴더로 복사되며， 플래그 지정된 이메일의 총 개수가 아래 스크린샷과 같이 표시됩니다：

---

a name="a2">VBA 코드를 사용하여 모든 계정에서 플래그된 이메일 / 연락처 / 작업의 개수를 각각 세기

Outlook 에서 이메일， 연락처 및 작업 등 모든 플래그 지정 항목의 개수를 각각 세고 싶다면 다음 VBA 코드가 도움이 됩니다。

1.ALT + F11키를 누른 상태로 유지하여Microsoft Visual Basic for Applications창을 엽니다。

2。 그런 다음삽입>모듈을 클릭하고 아래 코드를 열린 빈 모듈에 복사하여 붙여넣으세요(스크린샷 참조)：

VBA 코드: Outlook 에서 플래그 지정 횟수의 개수 세기：

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

3。 그런 다음F5키를 눌러 이 코드를 실행하면 아래 스크린샷과 같이 모든 플래그 지정 항목의 총 개수를 알려주는 알림 상자가 나타납니다：

---

Outlook 에서 오늘， 어제， 읽음， 안 읽음， 총 항목 수 등의 항목 수를 세기 다음과 같은 강력한Kutools for Outlook의통계기능을 사용하면 날짜， 선택한 항목 수， 읽음， 안 읽음 등을 기준으로 항목 수를 원하는 대로 확인할 수 있습니다。 Kutools for Outlook： 70+개가 넘는 유용하고 무료인 Outlook 애드인을 제공하며，지금 무료 버전을 다운로드하세요.