Outlook에서 플래그된 메시지의 수를 계산하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook에서는 메시지, 연락처 또는 작업에 플래그를 지정하여 이를 돋보이게 할 수 있지만, 때로는 Outlook에서 플래그가 지정된 항목의 수를 계산해야 할 수도 있습니다. Outlook에서 이 작업을 어떻게 처리할 수 있을까요?

검색 폴더를 사용하여 하나의 계정에서 플래그된 메시지 수를 계산

VBA 코드를 사용하여 모든 계정에서 플래그된 메시지/연락처/작업 수를 별도로 계산

a name="a1"> 검색 폴더를 사용하여 하나의 계정에서 플래그된 메시지 수를 계산

Outlook의 계정에서 플래그된 이메일 수를 계산하기 위해 검색 폴더 기능이 도움이 될 수 있습니다. 다음 단계를 따르세요:

1. 이메일 계정 아래의 검색 폴더를 마우스 오른쪽 버튼으로 클릭하고 새 검색 폴더를 선택하세요. 스크린샷을 참조하세요:

2. 그러면 새 검색 폴더 대화 상자가 나타납니다. 읽기 메일 섹션에서 후속 조치 필요 옵션을 클릭하세요. 스크린샷을 참조하세요:

3. 그런 다음 확인을 클릭하면 모든 플래그된 메시지가 후속 조치 폴더로 복사되며, 플래그된 이메일의 총 개수가 다음과 같이 표시됩니다:

a name="a2"> VBA 코드를 사용하여 모든 계정에서 플래그된 메시지/연락처/작업 수를 별도로 계산

이메일, 연락처 및 작업과 같은 모든 플래그된 항목의 수를 별도로 계산하려면 다음 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