Перейти до основного матеріалу

Як підрахувати загальну кількість вхідних листів на день в Outlook?

Ви коли-небудь підраховували загальну кількість електронних листів, які ви отримували на день? І чи набридло вам підраховувати їх по одному вручну без ефективних методів? У цьому посібнику ми пропонуємо вам дві хитрості для підрахунку загальної кількості електронних листів на день у програмі Outlook.


Підрахуйте загальну кількість електронних листів, що надійшли сьогодні за допомогою функції миттєвого пошуку

Насправді досить просто здійснити пошук усіх електронних листів, що надійшли сьогодні, у папці Вхідні, у всіх папках облікового запису електронної пошти або у всіх папках усіх облікових записів електронної пошти в Outlook, а потім підрахувати загальну кількість результатів пошуку. Будь ласка, виконайте наступне:

У пошта погляд (1) виберіть Вхідні папка одного облікового запису електронної пошти, в яку ви будете враховувати вхідні електронні листи сьогодні; (2) введіть критерії пошуку отримано: сьогодні в Миттєвий пошук , а потім (3) вкажіть область пошуку в Сфера група на Пошук вкладку. Дивіться знімок екрана:

А тепер загальна кількість усіх результатів пошуку, іншими словами, загальна кількість електронних листів, що надійшли сьогодні, відображається в лівому нижньому куті Outlook, як показано на знімку екрана.

Одним клацанням миші підрахувати кількість вибраних електронних листів у програмі Outlook

Отримати загальну кількість усіх елементів або кількість непрочитаних елементів у папці Outlook легко. Але як можна швидко отримати кількість вибраних елементів у папці в Outlook? Ось, Kutools для Outlook's Підрахувати вибрані елементи рекомендується, що дозволяє швидко показати кількість вибраних елементів лише одним клацанням миші!


Підрахуйте загальну кількість електронних листів, що надійшли сьогодні за допомогою функції папки пошуку

Цей метод допоможе вам створити папку пошуку, яка автоматично збирає всі електронні листи, отримані сьогодні, і тоді ви зможете отримати загальну кількість цих листів із зміною властивостей папки пошуку. Будь ласка, виконайте наступне:

1. Виберіть обліковий запис електронної пошти, у якому ви створите папку пошуку, на панелі навігації та натисніть Папка > Нова папка пошуку. Дивіться знімок екрана:

2, в Нова папка пошуку виберіть діалогове вікно Створіть власну папку пошуку та натисніть кнопку Вибирати кнопку. Дивіться знімок екрана:

3. Тепер з’явиться діалогове вікно «Папка користувацького пошуку». Будь ласка, назвіть нову папку пошуку в ІМ'Я коробка

4. Натисніть кнопку Критерії в папці користувацького пошуку. Тепер у діалоговому вікні «Критерії папки пошуку» (1) клацання Повідомлення вкладка (2) вибрати отримано від Time випадаючий список, (3) вкажіть ТЕПЕР з наступного випадаючого списку, а потім (4) натисніть OK кнопку. Дивіться знімок екрана:

5. Тепер він повертається до Папка користувацького пошуку діалогове вікно, натисніть перегорнути кнопку. А потім у діалоговому вікні Виберіть папку (1) будь ласка, лише перевірте Вхідні в Папки список, поставте галочку Шукати в підпапках та натисніть кнопку OK кнопку. Дивіться знімок екрана:

6. А потім клацніть OK кнопки послідовно, щоб закрити діалогове вікно "Спеціальна папка пошуку" та діалогове вікно "Нова папка пошуку".

7. Клацніть правою кнопкою миші нову папку пошуку, яку ви створили щойно, а потім виберіть властивості з меню правої клавіші миші. Дивіться знімок екрана:

8. У наступному діалоговому вікні перевірте Показати загальну кількість елементів , а потім клацніть на OK кнопку. Дивіться знімок екрана:

Відтепер копії вхідних повідомлень електронної пошти зберігатимуться в цій папці пошуку щодня. Якщо настає новий день, папка пошуку автоматично видалить всі старі повідомлення та почне підраховувати повідомлення електронної пошти про нові дні.

примітки: Цей метод дозволяє підрахувати лише загальну кількість електронних листів, отриманих сьогодні в папці Вхідні одного облікового запису електронної пошти.


Підрахуйте загальну кількість електронних листів, що надходять на певну дату з VBA

Окрім вищевказаного методу, ви можете використовувати код VBA для підрахунку загальної кількості електронних листів на певну дату в Outlook. Будь ласка, виконайте наступне.

1. Виберіть папку, для якої потрібно підрахувати загальну кількість вхідних електронних листів на день, а потім відкрийте Microsoft Visual Basic для додатків натиснувши інший + F11.

2. Тоді будь ласка Insert > Модулі щоб вставити новий модуль, а потім вставте в нього код 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 Plus > Статистика. Дивіться знімок екрана:

2. Тепер з’явиться діалогове вікно Статистика, виберіть, будь ласка, вказані папки, в які ви будете підраховувати електронні листи, вкажіть діапазон дат, в який ви будете рахувати електронні листи та натисніть OK кнопку. Дивіться знімок екрана:

3. У другому діалоговому вікні Статистика перейдіть до Дні місяця вкладку або Дні тижня на вкладці можна переглянути загальну кількість електронних листів, отриманих за кожну дату. Дивіться знімок екрана:
До речі, ви також можете отримати загальну кількість електронних листів, отриманих сьогодні / вчора у всіх папках Вхідні всіх облікових записів електронної пошти на Підсумки Вкладка.


Демонстрація: підрахуйте загальну кількість електронних листів, що надходять за день, за допомогою Kutools для Outlook


Чайові: У цьому відео, Кутулс вкладку додає Kutools для Outlook. Якщо вам це потрібно, натисніть тут мати 60-денну безкоштовну пробну версію без обмежень!


Статті по темі:


Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення 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