Outlook VBAでメール本文を検索する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、OutlookのVBAを使って、メールの本文から特定のキーワードを検索する方法をご紹介します。パソコンやスマホの操作がちょっと苦手な方でも大丈夫です。一緒に学んでいきましょう。

はじめにVBAって何？
Outlookでメール本文を検索する方法
よくある質問や疑問
1. マクロを実行しても何も表示されません。どうすればいいですか？
2. マクロの実行中にエラーが出ました。原因は何ですか？
今すぐ解決したい！どうしたらいい？
まとめ

はじめにVBAって何？

Outlookのイメージ

まず、VBAとは「Visual Basic for Applications」の略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。難しそうに聞こえるかもしれませんが、基本を押さえれば便利なツールなんですよ。

Outlookでメール本文を検索する方法

Outlookでメールの本文から特定のキーワードを探すには、VBAを使って以下の手順を踏みます。

Outlookの「開発」タブを有効にする。
新しいマクロを作成する。
メール本文を検索するコードを入力する。
マクロを実行して結果を確認する。

それでは、一つずつ見ていきましょう。

1. Outlookの「開発」タブを有効にする

普段、Outlookのリボンに「開発」タブは表示されていないかもしれません。以下の手順で表示させましょう。

Outlookのメニューから「ファイル」をクリックします。
「オプション」を選択します。
「リボンのユーザー設定」をクリックします。
右側の「開発」にチェックを入れ、「OK」をクリックします。

これで、「開発」タブが表示されるようになります。

2. 新しいマクロを作成する

次に、マクロを作成します。

「開発」タブをクリックし、「マクロの作成」を選択します。
マクロ名を入力し、「作成」をクリックします。

これで、VBAエディターが開きます。

3. メール本文を検索するコードを入力する

以下のコードを入力してみましょう。

vba

Sub SearchMailBody()

    Dim olApp As Outlook.Application

    Dim olNamespace As Outlook.Namespace

    Dim olFolder As Outlook.MAPIFolder

    Dim olItems As Outlook.Items

    Dim olMail As Outlook.MailItem

    Dim strFilter As String

    Dim i As Integer
    ' Outlookアプリケーションを取得

    Set olApp = New Outlook.Application

    Set olNamespace = olApp.GetNamespace("MAPI")

    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)

    Set olItems = olFolder.Items
    ' 検索キーワードを指定

    Dim keyword As String

    keyword = "特定のキーワード"
    ' フィルターを作成

    strFilter = "@SQL=""urn:schemas:httpmail:textdescription"" ci_phrasematch '" & keyword & "'"
    ' フィルターを適用

    Set olItems = olItems.Restrict(strFilter)
    ' 検索結果を表示

    For i = 1 To olItems.Count

        Set olMail = olItems.Item(i)

        Debug.Print olMail.Subject

    Next i