Excel VBAでOutlookメールにフラグを設定する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、ExcelのVBAを使って、Outlookのメールにフラグを付ける方法をわかりやすくお伝えします。メール管理でお困りの方、必見ですよ。

Excel VBAとOutlookの連携基本のキ
1. VBAエディタの起動方法
2. Outlook参照設定の追加
Outlookメールにフラグを設定するVBAコード
フラグ設定の応用特定のキーワードでフィルタリング
よくある質問や疑問
1. フラグを設定したメールはどこで確認できますか？
2. フラグの期限を過ぎた場合、何か通知はありますか？
今すぐ解決したい！どうしたらいい？
まとめ

Excel VBAとOutlookの連携基本のキ

Outlookのイメージ

まず、ExcelとOutlookを連携させるための基本的な設定から始めましょう。

VBAエディタの起動方法

最初に、Excelを開きます。次に、「開発」タブをクリックし、その中の「Visual Basic」を選択します。これでVBAエディタが起動します。「開発」タブが見当たらない場合は、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。

Outlook参照設定の追加

VBAエディタが開いたら、メニューの「ツール」から「参照設定」を選びます。表示された一覧の中から「Microsoft Outlook xx.x Object Library」にチェックを入れて、「OK」をクリックします。これで、Excel VBAからOutlookを操作する準備が整いました。

Outlookメールにフラグを設定するVBAコード

それでは、実際にメールにフラグを付けるVBAコードを見てみましょう。

vba

Sub FlagEmails()

    Dim olApp As Outlook.Application

    Dim olNamespace As Outlook.Namespace

    Dim olFolder As Outlook.Folder

    Dim olMail As Outlook.MailItem

    Dim i As Integer
    ' Outlookアプリケーションの初期化

    Set olApp = New Outlook.Application

    Set olNamespace = olApp.GetNamespace("MAPI")

    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    ' 受信トレイ内のアイテムを順番にチェック

    For i = 1 To olFolder.Items.Count

        If TypeName(olFolder.Items(i)) = "MailItem" Then

            Set olMail = olFolder.Items(i)

            ' フラグを設定

            olMail.FlagStatus = olFlagMarked

            olMail.FlagRequest = "対応が必要です"

            olMail.FlagDueBy = Now + 2 ' 2日後が期限

            olMail.Save

        End If

    Next i
    ' オブジェクトの解放

    Set olMail = Nothing

    Set olFolder = Nothing

    Set olNamespace = Nothing

    Set olApp = Nothing

MsgBox "すべてのメールにフラグを設定しました。" End Sub

このコードを実行すると、受信トレイ内のすべてのメールに「対応が必要です」というフラグが付き、2日後を期限として設定されます。

フラグ設定の応用特定のキーワードでフィルタリング

全てのメールにフラグを付けるのではなく、特定のキーワードを含むメールだけにフラグを付けたい場合もありますよね。例えば、件名に「重要」という言葉が含まれているメールだけにフラグを付ける方法をご紹介します。

vba

Sub FlagImportantEmails()

    Dim olApp As Outlook.Application

    Dim olNamespace As Outlook.Namespace

    Dim olFolder As Outlook.Folder

    Dim olMail As Outlook.MailItem

    Dim i As Integer
    ' Outlookアプリケーションの初期化

    Set olApp = New Outlook.Application

    Set olNamespace = olApp.GetNamespace("MAPI")

    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    ' 受信トレイ内のアイテムを順番にチェック

    For i = 1 To olFolder.Items.Count

        If TypeName(olFolder.Items(i)) = "MailItem" Then

            Set olMail = olFolder.Items(i)

            ' 件名に「重要」が含まれている場合にフラグを設定

            If InStr(olMail.Subject, "重要") > 0 Then

                olMail.FlagStatus = olFlagMarked

                olMail.FlagRequest = "至急対応が必要です"

                olMail.FlagDueBy = Now + 1 ' 1日後が期限

                olMail.Save

            End If

        End If

    Next i
    ' オブジェクトの解放

    Set olMail = Nothing

    Set olFolder = Nothing

    Set olNamespace = Nothing

    Set olApp = Nothing