メインコンテンツへスキップ

OutlookでXNUMX日あたりの受信メールの総数を数える方法は?

XNUMX日に受信したメールの総数を数えたことがありますか? そして、効率的な方法なしに手動でそれらをXNUMXつずつ数えることにうんざりしていませんか? このチュートリアルでは、OutlookでXNUMX日あたりの合計メール数をカウントするためのXNUMXつのトリックを提供します。


インスタント検索機能を使用して、今日受信した電子メールの総数をカウントします

実際、今日受信したすべての電子メールを受信トレイフォルダー、電子メールアカウントのすべてのフォルダー、またはOutlookのすべての電子メールアカウントのすべてのフォルダーで検索し、検索結果の総数を数えるのは非常に簡単です。 次のようにしてください。

Mail ビュー、 (1) 選択する 受信トレイ 今日の受信メールをカウントするXNUMXつのメールアカウントのフォルダ。 (2) 検索条件を入力します 受け取った:今日クイック検索 ボックス、そして (3) で検索範囲を指定します 対象領域 グループを を検索 タブ。 スクリーンショットを参照してください:

これで、すべての検索結果の総数、つまり、今日受信した電子メールの総数が、下のスクリーンショットに示すようにOutlookの左下隅に表示されます。

ワンクリックでOutlookで選択したメールの数を数える

Outlookフォルダ内のすべてのアイテムの総数または未読アイテムの数を簡単に取得できます。 しかし、Outlookのフォルダー内の選択されたアイテムの数をすばやく取得するにはどうすればよいでしょうか。 ここに、 Kutools for Outlook's 選択したアイテムを数える ワンクリックで選択したアイテムの数をすばやく表示できることをお勧めします!


検索フォルダ機能を使用して、今日受信した電子メールの総数をカウントします

この方法では、今日受信したすべての電子メールを自動的に収集する検索フォルダーを作成し、検索フォルダーのプロパティを変更してこれらの電子メールの総数を取得できます。 次のようにしてください。

1。 ナビゲーションペインで検索フォルダを作成する電子メールアカウントを選択し、をクリックします フォルダ > 新しい検索フォルダ。 スクリーンショットを参照してください:

2。 の中に 新しい検索フォルダ ダイアログで、 カスタム検索フォルダを作成する オプションをクリックし、 選択する ボタン。 スクリーンショットを参照してください:

3。 これで、[カスタム検索フォルダ]ダイアログボックスが表示されます。 で新しい検索フォルダに名前を付けてください 名前 ボックス。

4。 クリックしてください 基準 カスタム検索フォルダのボタン。 [フォルダの検索基準]ダイアログボックスで、 (1) クリック メッセージ タブ、 (2) select 受け Time ドロップダウンリスト、 (3) 指定する 今日 次のドロップダウンリストから、次に (4) クリック OK ボタン。 スクリーンショットを参照してください:

5。 今それはに戻ります カスタム検索フォルダ ダイアログをクリックしてください ブラウズ ボタン。 次に、[フォルダの選択]ダイアログボックスで、 (1) 確認してください 受信トレイ セクションに フォルダ リストボックス、チェック サブフォルダを検索 オプションをクリックし、 OK ボタン。 スクリーンショットを参照してください:

6。 そして、 OK ボタンを連続して押して、[カスタム検索フォルダ]ダイアログボックスと[新しい検索フォルダ]ダイアログボックスを閉じます。

7。 今作成した新しい検索フォルダを右クリックして、 プロパティ 右クリックメニューから。 スクリーンショットを参照してください:

8。 次のダイアログで、 アイテムの総数を表示する オプションをクリックしてから、 OK ボタン。 スクリーンショットを参照してください:

今後、受信メールメッセージのコピーはXNUMX日あたりこの検索フォルダに保存されます。 新しい日が来ると、検索フォルダはすべての古いメッセージを自動的に削除し、新しい日の電子メールメッセージのカウントを開始します。

Note:この方法では、XNUMXつのメールアカウントの受信トレイで今日受信したメールの総数のみをカウントできます。


VBAを使用して特定の日に受信した電子メールの総数をカウントします

上記の方法に加えて、VBAコードを使用して、Outlookで特定の日付の電子メールの総数をカウントできます。 次のようにしてください。

1。 XNUMX日あたりの受信メールの総数をカウントするフォルダを選択し、 アプリケーション向け Microsoft Visual Basic 押すことで 他の + F11.

2。 それではどうぞ インセット > モジュール 新しいモジュールを挿入し、VBAコードの下に貼り付けます。

VBA:XNUMX日あたりの合計メール数をカウントする

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 ボタン。 また、XNUMX番目のポップアップダイアログボックスには、今日受信した電子メールの総数が表示されます。 スクリーンショットを参照してください:

注意:
(1)このVBAは、選択したフォルダーで指定した日付に受信したすべての電子メールの総数のみをカウントできます。
(2)このVBAコードは、Outlook 2010、2013、および2016で適切に機能します。


Kutools forOutlookを使用してXNUMX日に受信する電子メールの総数をカウントします

Kutools for Outlookがインストールされている場合は、統計機能を適用して、XNUMXか月にXNUMX日に受信した電子メールの総数を簡単にカウントできます。 次のようにしてください。

Kutools for Outlook: 100 を超える便利なツールを備えた究極の Outlook ツールキット。 60 日間無料でお試しいただけます。制限はなく、心配する必要はありません。   続きを読みます...   今すぐ無料トライアルを始めましょう!

1。 クリックしてください クツールズプラス > 統計。 スクリーンショットを参照してください:

2。 [統計]ダイアログボックスが表示されます。メールをカウントする指定のフォルダを選択し、メールをカウントする日付範囲を指定してください, クリック OK ボタン。 スクリーンショットを参照してください:

3。 XNUMX番目の[統計]ダイアログボックスで、[ 月の日 タブまたは 曜日 タブでは、各日付に受信した電子メールの総数を表示できます。 スクリーンショットを参照してください:
ところで、今日/昨日受信したメールの総数は、上のすべてのメールアカウントのすべての受信トレイフォルダで取得することもできます。 まとめ タブには何も表示されないことに注意してください。


デモ:Kutools forOutlookを使用してXNUMX日に受信する電子メールの総数をカウントします


先端: このビデオで、 クツール タブはによって追加されます Kutools for Outlook。 必要な場合はクリックしてください こちら 無制限に60日間の無料トライアルがあります!


関連記事:


最高のオフィス生産性向上ツール

Kutools for Outlook - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで 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