VBAを使ってOutlookのメールを読み取る方法

皆さん、こんにちは。今日は、VBA、つまりVisual Basic for Applicationsを使って、Outlookのメールを自動的に読み取る方法をご紹介します。パソコンやスマホがちょっと苦手な方でも大丈夫です。ゆっくりと、一緒に進めていきましょう。

VBAって何？
Outlookのメールを読み取るってどういうこと？
実際にやってみよう！VBAでOutlookのメールを読み取る手順
よくある質問や疑問
1. Q1: このコードを実行するとエラーが出ます。どうすればいいですか？
2. Q2: 特定のフォルダ内のメールを読み取りたい場合はどうすればいいですか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAって何？

Outlookのイメージ

まず、VBAとは何かをご説明します。これは、MicrosoftのOffice製品に組み込まれているプログラミング言語で、ExcelやOutlookなどの操作を自動化するために使われます。例えば、毎日同じ作業を繰り返すのは大変ですよね。そんな時、VBAを使えば、その作業を自動化できるんです。

Outlookのメールを読み取るってどういうこと？

次に、Outlookのメールを読み取るとはどういうことかをお話しします。例えば、毎日特定の件名のメールを探して、その内容をExcelにまとめる作業があるとします。これを手作業で行うのは大変ですが、VBAを使えば、自動的にそのメールを探し出し、必要な情報を抽出してくれるんです。

実際にやってみよう！VBAでOutlookのメールを読み取る手順

では、具体的にどのようにVBAを使ってOutlookのメールを読み取るのか、その手順をご紹介します。

まず、Excelを開きます。
次に、キーボードの「Alt」キーを押しながら「F11」キーを押して、VBAの編集画面を開きます。
画面上部の「挿入」メニューから「モジュール」を選択し、新しいモジュールを追加します。
以下のコードをコピーして、先ほど追加したモジュールに貼り付けます。

vba

Sub GetFromInbox()

    Dim olApp As Object

    Dim olNs As Object

    Dim Fldr As Object

    Dim olMail As Object

    Dim i As Integer

    Dim x As Date

    Dim ws As Worksheet

    Dim lrow As Long
    Set ws = ThisWorkbook.Sheets(1)

    Set olApp = CreateObject("Outlook.Application")

    Set olNs = olApp.GetNamespace("MAPI")

    Set Fldr = olNs.GetDefaultFolder(6) ' 6は受信トレイを指します

    x = Date
    For Each olMail In Fldr.Items

        If TypeName(olMail) = "MailItem" Then

            If InStr(olMail.Subject, "特定のキーワード") > 0 And _

               DateDiff("d", olMail.ReceivedTime, x) = 0 Then

                lrow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

                ws.Cells(lrow, 1).Value = olMail.Subject

                ws.Cells(lrow, 2).Value = olMail.ReceivedTime

                ws.Cells(lrow, 3).Value = olMail.SenderName

            End If

        End If

    Next olMail

Set Fldr = Nothing Set olNs = Nothing Set olApp = Nothing End Sub

このコードは、Outlookの受信トレイから「特定のキーワード」を含む今日受信したメールを探し、その件名、受信日時、送信者名をExcelのシートに書き出すものです。

よくある質問や疑問

Q1: このコードを実行するとエラーが出ます。どうすればいいですか？

エラーが出る場合、Outlookが正しく設定されているか、ExcelとOutlookのバージョンが互換性があるかを確認してください。また、セキュリティ設定によっては、外部アプリケーションからのアクセスが制限されている場合があります。

Q2: 特定のフォルダ内のメールを読み取りたい場合はどうすればいいですか？

その場合、コード内の`Set Fldr = olNs.GetDefaultFolder(6)`の部分を、読み取りたいフォルダに変更します。例えば、「特定のフォルダ」という名前のフォルダ内のメールを読み取りたい場合は、`Set Fldr = olNs.GetDefaultFolder(6).Folders(“特定のフォルダ”)`とします。