Прескочи на основното съдържание

Как да преброя общия брой входящи имейли на ден в Outlook?

Автор: Силувия Последна промяна: 2020-05-22

Броили ли сте някога общия брой имейли, които получавате на ден? И писна ли ви да ги броите един по един ръчно без никакви ефективни методи? В този урок ви предоставяме два трика за преброяване на общия брой имейли на ден в Outlook.


Пребройте общия брой входящи имейли днес с функцията за незабавно търсене

Всъщност е доста лесно да търсите всички имейли, входящи днес в папката "Входящи", всички папки на имейл акаунт или всички папки на всички имейл акаунти в Outlook и след това да преброите общия брой резултати от търсенето. Моля, направете следното:

в Mail изглед, (1) изберете Входящи папка на един имейл акаунт, в който ще броите входящите имейли днес; (2) въведете критериите за търсене получено: днес в Незабавно търсене кутия, а след това (3) посочете обхват на търсене в Обхват група на Търсене раздел. Вижте екранна снимка:

И сега общият брой на всички резултати от търсенето, с други думи общият брой имейли, входящи днес, се показва в долния ляв ъгъл на Outlook, както е показано на екранната снимка по-долу.

Едно кликване за преброяване на избраните имейли в Outlook

Лесно е да получите общия брой на всички елементи или броя на непрочетените елементи в папка на Outlook. Но как можете бързо да получите броя на избраните елементи в папка в Outlook? Тук, Kutools за Outlook's Преброяване на избраните елементи се препоръчва, което може бързо да покаже броя на избраните елементи само с едно кликване!


Пребройте общия брой входящи имейли днес с функцията за папка за търсене

Този метод ще ви насочи да създадете папка за търсене, която автоматично събира всички имейли, получени днес, и след това можете да получите общия брой на тези имейли, като промените свойствата на папката за търсене. Моля, направете следното:

1. Изберете имейл акаунта, в който ще създадете папка за търсене в навигационния панел, и щракнете Папка > Нова папка за търсене. Вижте екранна снимка:

2. В Нова папка за търсене диалогов прозорец, изберете Създайте персонализирана папка за търсене и щракнете върху Изберете бутон. Вижте екранна снимка:

3. Сега излиза диалоговият прозорец Папка за персонализирано търсене. Моля, наименувайте новата папка за търсене в Име кутия.

4. Продължете, за да щракнете върху Критерии в папката за персонализирано търсене. Сега в диалоговия прозорец Критерии за папка за търсене, (1) кликване Събщение раздел, (2) изберете приет от Време падащ списък, (3) посочете днес от следния падащ списък и след това (4) кликнете на OK бутон. Вижте екранна снимка:

5. Сега се връща към Персонализирана папка за търсене диалогов прозорец, моля щракнете паса бутон. И след това в диалоговия прозорец Избор на папка(и), (1) моля, проверете само Входящи в Папки списъчно поле, проверете Търсене в подпапки и щракнете върху OK бутон. Вижте екранна снимка:

6, И после щракнете върху OK бутони последователно, за да затворите диалоговия прозорец Персонализирана папка за търсене и диалоговия прозорец Нова папка за търсене.

7. Щракнете с десния бутон върху новата папка за търсене, която създадохте току-що, и след това изберете Имоти от менюто с десен бутон. Вижте екранна снимка:

8. В следващия диалогов прозорец проверете Показване на общия брой елементи опция и след това щракнете върху OK бутон. Вижте екранна снимка:

Отсега нататък копията на входящите имейл съобщения ще се записват всеки ден в тази папка за търсене. Ако идва нов ден, папката за търсене автоматично ще премахне всички стари съобщения и ще започне да брои имейл съобщенията за нови дни.

Забележка: Този метод може да преброи само общия брой имейли, получени днес във входящата кутия на един имейл акаунт.


Пребройте общия брой имейли, входящи на определена дата с VBA

Освен горния метод, можете да използвате VBA код, за да преброите общия брой имейли на определена дата в Outlook. Моля, направете следното.

1. Изберете папката, в която искате да преброите общия брой входящи имейли на ден, след което отворете Microsoft Visual Basic за приложения като натиснете Друг + F11.

2. Тогава моля Поставете > Модули за да вмъкнете нов модул и след това поставете по-долу VBA код в него.

VBA: Преброяване на общия брой имейли на ден

Sub Countemailsperday()
    Dim objOutlook As Object, objnSpace As Object, objFolder As MAPIFolder
    Dim EmailCount As Integer
    Dim oDate As String
    
    oDate = InputBox("Type the date for count (format YYYY-m-d")
    Set objOutlook = CreateObject("Outlook.Application")
    Set objnSpace = objOutlook.GetNamespace("MAPI")
        On Error Resume Next
        Set objFolder = Application.ActiveExplorer.CurrentFolder
        If Err.Number <> 0 Then
        Err.Clear
        MsgBox "No such folder."
        Exit Sub
        End If
    EmailCount = objFolder.Items.Count
    MsgBox "Number of emails in the folder: " & EmailCount, , "email count"
    Dim ssitem As MailItem
    Dim dateStr As String
    Dim myItems As Outlook.Items
    Dim dict As Object
    Dim msg As String
    Set dict = CreateObject("Scripting.Dictionary")
    Set myItems = objFolder.Items
    myItems.SetColumns ("ReceivedTime")
    ' Determine date of each message:
    For Each myItem In myItems
        dateStr = GetDate(myItem.ReceivedTime)
        If dateStr = oDate Then
            If Not dict.Exists(dateStr) Then
                dict(dateStr) = 0
            End If
            dict(dateStr) = CLng(dict(dateStr)) + 1
        End If
    Next myItem
    ' Output counts per day:
    msg = ""
    For Each o In dict.Keys
        msg = msg & o & ": " & dict(o) & " items" & vbCrLf
    Next
    MsgBox msg
    Set objFolder = Nothing
    Set objnSpace = Nothing
    Set objOutlook = Nothing
End Sub
Function GetDate(dt As Date) As String
    GetDate = Year(dt) & "-" & Month(dt) & "-" & Day(dt)
End Function

3. След като поставите VBA кода, моля, щракнете бягане бутон.

4. След това въведете посочената дата, на която искате да преброите общия брой входящи имейли, в изскачащия диалогов прозорец и след това щракнете върху OK. Вижте екранна снимка:

5. Диалогов прозорец подканва да покаже общия брой имейли в избраната папка, моля, щракнете върху OK бутон. И във втория изскачащ диалогов прозорец ще получите общия брой имейли, получени днес. Вижте екранни снимки:

Забележки:
(1) Този VBA може да преброи само общия брой на всички имейли, получени на определената дата в избраната папка;
(2) Този VBA код работи добре в Outlook 2010, 2013 и 2016.


Пребройте общия брой входящи имейли на ден с Kutools за Outlook

Ако имате инсталиран Kutools за Outlook, можете да приложите неговата функция за статистика, за да преброите лесно общия брой имейли, получени на ден за един месец. Моля, направете следното:

Kutools за Outlook: Най-добрият инструментариум на Outlook с над 100 удобни инструмента. Опитайте го БЕЗПЛАТНО за 60 дни, без ограничения, без притеснения!   Прочети повече ...   Започнете безплатен пробен период сега!

1. Моля, щракнете Kutools плюс > Статистика. Вижте екранна снимка:

2. Сега излиза диалоговият прозорец Статистика, моля, изберете посочените папки, в които ще броите имейлите, посочете периода от време, в който ще броите имейлите, и кликнете на OK бутон. Вижте екранна снимка:

3. Във втория диалогов прозорец Статистика отидете на Дни от месеца раздел или Дни от седмицата можете да видите общия брой имейли, получени на всяка дата. Вижте екранна снимка:
Между другото, можете също да получите общия брой имейли, получени днес/вчера във всички папки на входящата кутия на всички имейл акаунти на Oбобщение раздела.


Демонстрация: Пребройте общия брой входящи имейли на ден с Kutools за Outlook


тип: В това видео, Kutools разделът е добавен от Kutools за Outlook. Ако имате нужда от него, моля щракнете тук за да имате 60-дневен безплатен пробен период без ограничение!


Още по темата:


Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове ProПакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове  /   Антифишинг имейли  /  🕘Показване на часовата зона на подателя ...

👩🏼‍🤝‍👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли  /  Разделете група контакти на отделни групи  /  Премахнете напомнянията за рожден ден ...

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

 

 

Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to add the SenderName details too? Based on the above code, it counts emails by date. I was looking to count emails by sender and date.
This comment was minimized by the moderator on the site
can you do a date range? and add folders?
This comment was minimized by the moderator on the site
Hi Laura,
You can filter emails by the date range (https://www.extendoffice.com/documents/outlook/1412-outlook-search-date-range.html), and then get the total number of search results at the bottom of Outlook Navigation Pane.
This comment was minimized by the moderator on the site
will this (VBA) works under Outlook 365 ?
This comment was minimized by the moderator on the site
Hi Artur,
This VBA works well in Outlook 365 desktop program.
This comment was minimized by the moderator on the site
guys i have tried this code just now but it is not working can anyone help me . i want to count the num of email i received in my oracle folder .
This comment was minimized by the moderator on the site
Hi this vba script is most appreciated, Can anyone help me to retrieve the count from specific folder with specific time, Ex: Count from sent items from dd/mm/yyyy mm:hh till dd/mm/yyyy mm:hh
This comment was minimized by the moderator on the site
Did you find a resolution to this?
This comment was minimized by the moderator on the site
Hi guys, any idea how to make this work for a period o time? I mean, selecting a range date (from-to) and getting the result per day e.g inpunt range from June 1st to june 6th: 6/1 total 14 6/2 total 24 6/3 total 12 and so on... thanks in advance
This comment was minimized by the moderator on the site
in my case i was able to figure it out by doing it manually. like you can count it per month or per year.
if you will count if per month, just delete the day in the formula

e.g:
Function GetDate(dt As Date) As String
GetDate = Year(dt) & "-" & Month(dt)
End Function


per year:
Function GetDate(dt As Date) As String
GetDate = Year(dt)
End Function
This comment was minimized by the moderator on the site
For me the last window worked when I set both dates into the same format. I chnaged the code into this me (Ru date/time format in Windows, US - in Outlook): 1) oDate = Date 2) ' Determine date of each message: For Each MyItem In myItems dateStr = DateValue(MyItem.ReceivedTime) 3) GetDate = Day(dt) & "." & Month(dt) & "." & Year(dt)
This comment was minimized by the moderator on the site
Hi , Very useful code , but like above it does not count per day for me and last message box is empty , can anyone fix this please
This comment was minimized by the moderator on the site
VBA instuctions to be able to create a counter for emails recieves last week
This comment was minimized by the moderator on the site
very thanks i solved all what i need, very thanks again great effort
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations