Outlook에서 보낸 사람별로 이메일을 빠르게 계산하는 2 가지 방법

Outlook 솔루션 2025 년 9 월 29 일

보낸 사람의 이메일 수를 계산하려면이 문서를 참조하세요. 여기에서는 두 가지 빠른 접근 방식을 제공합니다.

m을 알기 위해ost 당신을 위해 활성 발신자, 당신은 발신자별로 이메일을 계산할 수 있습니다. Outlook이 이에 대한 직접적인 기능을 제공하지는 않지만 다음 방법 1과 같은 몇 가지 해결 방법을 찾을 수 있습니다. 방법 1이 너무 지루하다고 생각되면 방법 2를 선택할 수 있습니다. VBA를 사용하여 발신자별로 이메일을 빠르게 계산하고 개수를 Excel로 내 보냅니다. 이제 두 가지 방법을 자세히 읽어보십시오. 여기에서는 Inbox의 이메일을 예로 들어 보겠습니다.

방법 1 : "From"필드별로 항목을 그룹화 한 후 개수 가져 오기

시작하려면 Outlook 응용 프로그램을 시작하십시오.
그런 다음받은 편지함 폴더를 엽니 다.
다음으로 "보기"탭으로 전환합니다.
그런 다음 "Arrangement"그룹에서 "From"을 선택합니다.
한 번에 모든받은 편지함 항목이 다른 보낸 사람에 따라 다른 그룹으로 분리되었습니다.
이제 특정 보낸 사람의 항목을 계산하려면 관련 그룹의 모든 항목을 선택하고 "Enter"키를 누릅니다. 팝업 경고에서 카운트를 볼 수 있습니다.

이는 매우 간단하지만 항목 수에는 실제로 이메일 수뿐만 아니라 회의 초대, 작업 요청 및 수신과 같은 다른 유형의 항목이 포함됩니다. 따라서 이메일 만 계산하려는 경우 다음 방법을 대신 사용할 수 있습니다.

방법 2 : Outlook VBA를 사용하여 보낸 사람별로 이메일 계산

로tart, Outlook에서 "Alt + F11"키 버튼을 누릅니다.
그런 다음“MS Excel Object Library "에 따라"개체 라이브러리를 추가하는 방법rary VBA의 참조".
다음으로 아래 코드를 사용하지 않는 모듈에 복사하십시오.

Sub CountInboxEmailsbySender()
    Dim objDictionary As Object
    Dim objInbox As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim strSender As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim varSenders As Variant
    Dim varItemCounts As Variant
    Dim nLastRow As Integer
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    For i = objInbox.Items.Count To 1 Step -1
        If objInbox.Items(i).Class = olMail Then
           Set objMail = objInbox.Items(i)
           strSender = objMail.SenderEmailAddress
 
           If objDictionary.Exists(strSender) Then
              objDictionary.Item(strSender) = objDictionary.Item(strSender) + 1
           Else
              objDictionary.Add strSender, 1
           End If
        End If
    Next

    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    With objExcelWorksheet
         .Cells(1, 1) = "Sender"
         .Cells(1, 2) = "Count"
    End With
 
    varSenders = objDictionary.Keys
    varItemCounts = objDictionary.Items
 
    For i = LBound(varSenders) To UBound(varSenders)
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
        With objExcelWorksheet
             .Cells(nLastRow, 1) = varSenders(i)
             .Cells(nLastRow, 2) = varItemCounts(i)
        End With
    Next
 
    objExcelWorksheet.Columns("A:B").AutoFit
End Sub

그 후“F5”키 버튼을 누르십시오.
매크로가 완료되면 새 Excel 파일이 표시됩니다.
보시다시피 여기에는 여러 발신자가 보낸받은 편지함 이메일 수가 포함됩니다.

실망스러운 Outlook 문제 처리

Outlook에서 많은 문제를 겪은 적이있을 것입니다. 효과적으로 해결하기 위해 다재다능하고 강력한 방법을 갈망 할 수 있습니다. 그러나 사실 그러한 방법은 없습니다. 당신이 할 수있는 일은 Outlook에서 자신의 작업을 조심하고 정기적으로 백업하는 것입니다. 물론 가능하다면 다음과 같이 숙련 된 수정 도구를 사용하는 것이 좋습니다. DataNumen Outlook Repair. 다양한 PST 문제를 수정하고 수리 할 수 있습니다. 손상된 PST 산들 바람처럼 파일.

저자 소개 :

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