VBAを使ってOutlookのメールを日付で検索する方法

皆さん、こんにちは。今日は、VBAを使ってOutlookのメールを日付で検索する方法についてお話しします。パソコンやスマートフォンの操作が苦手な方でも、安心して取り組める内容になっていますので、ぜひ最後までご覧ください。

Outlookのメールを日付で検索する必要性
VBAとは何か？
OutlookでVBAを使う準備
特定の日付のメールを検索するVBAコード
コードのポイント解説
実行方法と注意点
今すぐ解決したい！どうしたらいい？
まとめ

Outlookのメールを日付で検索する必要性

Outlookのイメージ

突然ですが、過去のメールを探すときに、いつ送られてきたか覚えているのに、なかなか見つからないことってありませんか？そんなとき、VBA（Visual Basic for Applications）を使えば、特定の日付のメールを簡単に検索することができます。

VBAとは何か？

まず、VBAについて簡単に説明します。VBAは、Microsoft Office製品に組み込まれているプログラミング言語で、作業の自動化やカスタマイズが可能です。難しそうに聞こえるかもしれませんが、基本を押さえれば、誰でも活用できます。

OutlookでVBAを使う準備

では、実際にOutlookでVBAを使ってみましょう。以下の手順で進めていきます。

Outlookを開きます。
キーボードの「Alt」キーを押しながら「F11」キーを押して、VBAエディターを起動します。
「挿入」メニューから「標準モジュール」を選択し、新しいモジュールを作成します。

これで、VBAのコードを入力する準備が整いました。

特定の日付のメールを検索するVBAコード

次に、特定の日付のメールを検索するためのVBAコードをご紹介します。以下のコードを先ほど作成したモジュールに入力してください。

vba

Sub SearchEmailsByDate()

    Dim outlookApp As Outlook.Application

    Dim namespace As Outlook.Namespace

    Dim folder As Outlook.Folder

    Dim items As Outlook.Items

    Dim filteredItems As Outlook.Items

    Dim item As Object

    Dim filter As String

    Dim startDate As String

    Dim endDate As String
    ' Outlookアプリケーションを取得

    Set outlookApp = Outlook.Application

    Set namespace = outlookApp.GetNamespace("MAPI")

    Set folder = namespace.GetDefaultFolder(olFolderInbox) ' 受信トレイを指定
    ' 検索期間を設定

    startDate = "2025/03/01 00:00 AM"

    endDate = "2025/03/05 11:59 PM"

' フィルターを作成 filter = "[ReceivedTime] >= '" & startDate & "' AND [ReceivedTime] <= '" & endDate & "'" ' アイテムを取得し、フィルターを適用 Set items = folder.Items items.Sort "[ReceivedTime]", False Set filteredItems = items.Restrict(filter) ' 結果を表示 For Each item In filteredItems If TypeName(item) = "MailItem" Then Debug.Print "件名: " & item.Subject Debug.Print "送信者: " & item.SenderName Debug.Print "受信日時: " & item.ReceivedTime Debug.Print "-----------------------------------" End If Next item End Sub

このコードは、指定した期間内に受信したメールの件名、送信者、受信日時を表示します。