Outlook VBAを使用して、受信メールを日付、月、または年ですばやくカウントする方法

Outlookソリューション 2025 年 9 月 29 日

特定の日付、または特定の月や年に受信した電子メールの数をカウントしたい場合は、この記事で紹介した簡単な方法を使用できます。 VBAを使用してフラッシュで取得する方法を説明します。

特定の日付または期間に受信した電子メールの数を数えることになると、多くの人がOutlook検索フォルダーの使用に慣れています。これにより、特定の日付または日付範囲で受信したすべての電子メールをXNUMXつの検索フォルダーに集めることができます。次に、メールフォルダの「アイテムの総数を表示する」機能を使用して取得できます。しかし、間違いなく、この方法は非常に面倒です。したがって、ここでは、OutlookVBAを使用して合計数を取得するのに役立つ別のトリックを説明します。詳細な手順とコードについては、以下をお読みください。

日付で受信メールを数える

にtarを使用して、Outlookプログラムを適切に起動します。
次に、「開発者」タブに切り替えて、「VisualBasic」ボタンをクリックします。
次に、ポップアップOutlook VBAエディターウィンドウで、[挿入]> [モジュール]で新しいモジュールを開くことができます。
続いて、次のVBAコードを新しいモジュールにコピーします。

'The following codes are working to count by day
Sub CountReceivedEmailsbyDay()
    Dim objItems As Outlook.Items
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim strDay As String
    Dim dReceivedTime As Date
    Dim strReceivedDate As String
    Dim i, n As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    Set objItems = Outlook.Application.ActiveExplorer.CurrentFolder.Items
 
    objItems.SetColumns ("ReceivedTime")
    strDay = InputBox("Enter the specific day.(Format: yyyy-mm-dd)", "Specify Date")
 
    If strDay <> "" Then
       n = 0
       For i = 1 To objItems.Count
           If objItems.Item(i).Class = olMail Then
              Set objMail = objItems.Item(i)
              dReceivedTime = objMail.ReceivedTime
              strReceivedDate = Year(dReceivedTime) & "-" & Month(dReceivedTime) & "-" & Day(dReceivedTime)
              If strReceivedDate = strDay Then
                 n = n + 1
              End If
           End If
       Next i
 
       strMsg = "You have received " & n & " emails on " & strDay & "."
       nPrompt = MsgBox(strMsg, vbExclamation, "Count Received Emails")
    Else
       nPrompt = MsgBox("Please input the specific day!", vbExclamation)
    End If
End Sub

メモ: 上記のコードは、受信メールを日付でカウントするように機能しています。

その後、通常どおり新しいマクロをクイックアクセスツールバーに追加できます。
最後に、試してみることができます。

まず、受信トレイフォルダを選択します。
次に、クイックアクセスツールバーのボタンをクリックします。
次に、特定の日付を「yyyy-mm-dd」の形式で入力する必要があります。
最後に、次の画像のように、合計数のプロンプトが表示されます。

月または年ごとに受信メールを数える

上記のコードは日ごとにカウントするように指定されているため、月または年ごとにカウントする場合は、コードにいくつかの変更を加える必要があります。

まず、すべての「strDay」をに変更します strMonth or str年.
次に、「strDay = InputBox（「特定の日を入力してください。（形式：yyyy-mm-dd）」、「日付を指定」）」という行を次のように置き換えます。

strMonth = InputBox（ "特定の月を入力してください。（形式：yyyy-mm）"、 "月を指定してください"）
strYear = InputBox（ "特定の年を入力してください。（形式：yyyy）"、 "年を指定してください"）

XNUMX番目に、行「strReceivedDate = Year（dReceivedTime）＆「-」＆Month（dReceivedTime）＆「-」＆Day（dReceivedTime）」を次のように変更します。

strReceivedDate = Year（dReceivedTime）＆“-”＆Month（dReceivedTime） 【月間】
strReceivedDate = Year（dReceivedTime） [年間]。

Outlookがクラッシュした後に何が発生するか

多くのユーザーがOutlookのクラッシュに苦しんでいます。せいぜい、解像度の後tarOutlookを使用すると、すべてが復元されます。つまり、何も起こりません。ただし、最悪の場合、深刻な事態に遭遇する可能性があります PSTの破損。その時点で、現在のデータバックアップがないと仮定すると、最後の手段は間違いなく、次のような注目に値する修復ツールです。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLの回復と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com