메인 컨텐츠로 가기

Outlook에서 범주별로 이메일을 계산하는 방법은 무엇입니까?

Outlook에서 색상 범주로 이메일을 강조 표시했을 수 있습니다. 그러나 카테고리별로 이메일을 계산하는 방법을 알고 있습니까? 이 기사에서는 두 가지 솔루션을 공유합니다.

Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.
Outlook용 Kutools - 탁월한 효율성을 위한 100개 이상의 고급 기능으로 Outlook 향상
이러한 고급 기능으로 Outlook 2021~2010 또는 Outlook 365를 향상하세요. 포괄적인 60일 무료 평가판을 즐기고 이메일 경험을 향상시키십시오!

화살표 블루 오른쪽 거품 빠른 검색 기능을 사용하여 Outlook에서 범주별로 이메일 수 계산

이 방법은 사용자가 지정한 색상 범주로 표시된 모든 이메일을 찾을 수 있도록 안내합니다. 빠른 검색 모든 검색 결과의 총 수를 쉽게 얻을 수 있습니다. 상태 표시 줄.

1. 에서 우편 보기, 누르기 Ctrl 키 + E 키를 동시에 활성화하여 검색 도구.

2. 클릭 검색 > 분류 된을 클릭 한 다음 이메일을 계산할 지정된 색상 범주를 선택합니다.

3. 이제 지정된 색상 범주로 표시된 모든 이메일이 발견되어 메일 목록에 나열됩니다. 또한 상태 표시 줄에서 모든 검색 결과의 총 수를 쉽게 확인할 수 있습니다. 스크린 샷보기 :

배송 시 요청 사항:

(1)로 표시된 이메일 계산 용 노란색 카테고리 과 주황색 카테고리 동시에 검색 기준을 입력하십시오 category : = "노란색 카테고리"AND "오렌지색 카테고리" 로 빠른 검색 직접 상자 :

(2)로 표시된 이메일 계산 용 노란색 카테고리 or 주황색 카테고리 동시에 검색 기준을 입력하십시오 category : = "노란색 카테고리"OR "주황색 카테고리" 로 빠른 검색 직접 상자.

화살표 블루 오른쪽 거품 VBA를 사용하여 Outlook의 범주별로 이메일 계산

이 방법은 Outlook의 사용자 지정 날짜 범위에서 범주별로 전자 메일을 계산하는 VBA를 도입합니다. 다음과 같이하십시오 :

1. 에서 우편 보기에서 이메일을 계산할 이메일 폴더를 선택합니다.

2. 프레스 다른 + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

3. 클릭 끼워 넣다 > 모듈을 클릭 한 다음 VBA 코드 아래에 새 여는 모듈 창에 붙여 넣습니다.

VBA : Outlook에서 범주별로 이메일 수 계산

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. 누르세요 F5 키를 누르거나 실행 버튼을 클릭하여이 VBA를 실행합니다.

5. (1) 첫 번째 Microsoft Outlook 대화 상자에서 이메일을 계산할 사용자 지정 날짜 범위의 시작 날짜를 입력하고 OK 버튼을 클릭합니다. (2) 두 번째 Microsoft Outlook 대화 상자에서 종료 날짜를 입력하고 OK 단추. 스크린 샷보기 :

이제 대화 상자가 나타나고 색상 범주로 표시된 이메일 수가 표시됩니다. 스크린 샷보기 :

화살표 블루 오른쪽 거품관련 기사

최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로: 일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (18)
No ratings yet. Be the first to rate!
deadly
deadly
This comment was minimized by the moderator on the site
hi, i was able to do the export to excel, by eliminating the row Dim xWb As Workbook, xWs As Worksheet, but i really need to count the emails on daily basis, on the input date window, if i put the same day it wont give me back any results, i have to put 2 different days for it to work, is there a way around this? so i can count the emails on 1 day instead of 2
Reply
0
0
Sanjana
Sanjana
This comment was minimized by the moderator on the site
The total number of emails just used to appear beside the Name of the catagory. Does anyone know how to set this?
Reply
0
0
Prince
Prince
This comment was minimized by the moderator on the site
Hi,
Instead of only calculating from the selected folder, is there a way to include all the sub folders as well?
Reply
0
0
Lars
Lars     Prince
This comment was minimized by the moderator on the site
Hi
Did you manage to solve this ?
I would like to count in subfolders to.
Reply
Report
0
0
Radvi
Radvi
This comment was minimized by the moderator on the site
Hello, is there is a possibility to count letters marked with categories if in one letter we have few cases and they must be counted: for example green category - 1 letter with 3 cases inside = 3 green category cases ?


ThANK YOU
Reply
0
0
Dylan
Dylan
This comment was minimized by the moderator on the site
is there a way you can covert this into an excel table?
Reply
0
0
kellytte
kellytte     Dylan
This comment was minimized by the moderator on the site
Hi Dylan,
Below VBA code will place the count results in a new Excel workbook.
FYI, please enable the reference of “Microsoft Excel 16.0 Object Library” before running the VBA.
Sub CategoriesEmails()
Dim xFolder As MAPIFolder
Dim xDict As Object
Dim xStartDate As String, xEndDate As String
Dim xItems As Outlook.Items
Dim xStr As String, xMsg As String
Dim xExlApp As Object
Dim xWb As Workbook, xWs As Worksheet
Dim I As Integer
On Error Resume Next
Set xExlApp = CreateObject("Excel.Application")
Set xWb = xExlApp.Workbooks.Add
Set xWs = xWb.Sheets.Item(1)
Set xFolder = Application.ActiveExplorer.CurrentFolder
Set xDict = CreateObject("Scripting.Dictionary")
xStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
xEndDate = InputBox("Type the end date (format MM/DD/YYYY)")
Set xItems = xFolder.Items.Restrict("[ReceivedTime] >= '" & xStartDate & "' And [ReceivedTime] <= '" & xEndDate & "'")
'xItems.SetColumns ("Categories")
For Each xItem In xItems
xStr = xItem.Categories
If Not xDict.Exists(xStr) Then
xDict(xStr) = 0
End If
xDict(xStr) = CLng(xDict(xStr)) + 1
Next xItem
xMsg = ""
xWs.Range("A1", "B1").Font.Bold = True
With xWs.Range("A1", "B1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
xWs.Cells(1, 1) = "Categories"
xWs.Cells(1, 2) = "Count"
I = 2
For Each xKey In xDict.Keys
If xKey <> "" Then
xWs.Cells(I, 1) = xKey
xWs.Cells(I, 2) = xDict(xKey)
I = I + 1
End If
Next
xWs.Range("A1", "B" + CStr(I)).Columns.AutoFit
xExlApp.Visible = True
Set xFolder = Nothing
End Sub
Reply
Report
0
0
Amanda Lee
Amanda Lee     kellytte
This comment was minimized by the moderator on the site
Hi guys,
To make the above code run porperly, please first enable the reference of “Microsoft Excel 16.0 Object Library”.
To do so, please do as follows:1. In your Outlook, go to the tab Developer > Visual Basic.2. In the pop-up window, click Tools.3. In the pop-up dialog, check Microsoft Excel 16.0 Object Library, then click OK, see screenshot.
Note that the 16.0 indicates version number, so if it's not the same in your dialog, it doesn't matther. However, if you cannot find the Microsoft Excel (version number) Object Library, make sure that you have Excel installed in your computer.
After you enable the reference, please use the code above.
If you have any further questions, please don't hesitate to let me know.
Amanda
View Attachments (1 / 5)
Reply
Report
0
0
Clint
Clint     kellytte
This comment was minimized by the moderator on the site
I know this is an older thread, but if anyone can assist it would be greatly appreciated. When running the code I'm hitting a compile error "User-defined type not defined" for the 8th line "Dim xWB As Workbook, xWs As Worksheet"
Reply
0
0
Lars
Lars     Clint
This comment was minimized by the moderator on the site
Hi
Did you manage to solve this ?
I got the same problem
Solution:
Simply delete the row:Dim xWb As Workbook, xWs As Worksheet
Reply
Report
0
0
Hannah
Hannah     Lars
This comment was minimized by the moderator on the site
Can you add a way to breakout the count columns by day? So I could run a full month and then have counts broken out by day.
Reply
0
0
Amanda Lee
Amanda Lee     Hannah
This comment was minimized by the moderator on the site
Hi Hannah,

Please try the code below:

<div data-tag="code">Sub CategoriesEmails()
Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String
Dim xStr, xStrDate, xStrDate_D As String
Dim xArr As Variant
Dim xNum As Integer
Dim xRlt As String
On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder
xNum = 0
Set oDict = CreateObject("Scripting.Dictionary")
sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")
Set oItems = oFolder.Items.Restrict("[ReceivedTime] >= '" & sStartDate & "' And [ReceivedTime] <= '" & sEndDate & "'")
oItems.SetColumns ("ReceivedTime")
xStrDate_D = ""
xRlt = ""
For Each aitem In oItems
xStr = aitem.ReceivedTime
If Trim(xStr) <> "" Then
xArr = Split(xStr, " ")
xStrDate = xArr(0)
If xStrDate_D = "" Then
xStrDate_D = xStrDate
xNum = 1
Else
If xStrDate <> "" Then
If xStrDate = xStrDate_D Then
xNum = xNum + 1
Else
If xRlt = "" Then
xRlt = xStrDate_D & ":" & xNum
Else
xRlt = xRlt & vbCrLf & xStrDate_D & ":" & xNum
End If
xStrDate_D = xStrDate
xNum = 1
End If
End If
End If
End If
Next
If xRlt <> "" Then
MsgBox xRlt
Else
MsgBox "No data found."
End If
End Sub
Also, for more statistic analysis, please go to the tab Kutools Plus > Statistics if you have installed Kutools for Outlook. If not, please <a href="https://www.extendoffice.com/download/kutools-for-outlook.html">click here to download</a> and get a 30-day trail for free.
Amanda
Report
0
0
Hannah
Hannah     Amanda Lee
This comment was minimized by the moderator on the site
Thank you so much for your help!! I don't think I was clear enough in my initial question. Is there a way to have it break out by category and then give a count by day? So X Category would be broken down by count into date columns?
0
0
Sarah Creswell
Sarah Creswell     kellytte
This comment was minimized by the moderator on the site
This was helpful for me also, thank you so much for sharing!
Reply
0
0
Aymeric
Aymeric
This comment was minimized by the moderator on the site
Hi , thanks it workd perfectly for month of June, but when I run this for July, it only shows the total number of emails... any idea?
Reply
0
0
Abhishek Singhal
Abhishek Singhal
This comment was minimized by the moderator on the site
Hi Thanks, it works perfectly, just one quick query- Can we get the Msgbox results to be displayed in excel, as whenever i want to run the macro it should be displayed in excel.
every time one below the previous results.
Reply
0
0
knewlyknox@gmail.com
    Abhishek Singhal
This comment was minimized by the moderator on the site
This would be great!
Reply
Report
0
0
Emma
Emma
This comment was minimized by the moderator on the site
This is perfect, but how can I change the VBA to include subfolders of the current folder in the count?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations