Outlook VBAでメールアドレスを取得する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、OutlookでVBAを使ってメールアドレスを取得する方法についてお話しします。パソコンやスマホがちょっと苦手な方でも大丈夫です。一緒にゆっくり学んでいきましょう。

Outlook VBAとは？
メールアドレスを取得する方法
1. 差出人のメールアドレスを取得する手順
よくある質問や疑問
1. Q1: VBAって難しそうですが、初心者でも使えますか？
2. Q2: 他のメールアドレス情報も取得できますか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、Outlook VBAについて簡単に説明しますね。VBAとは「Visual Basic for Applications」の略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。Outlook VBAを使うと、Outlookの作業を自動化したり、カスタマイズしたりできます。例えば、特定のメールを自動で振り分けたり、メールアドレスを取得したりすることが可能です。

メールアドレスを取得する方法

では、具体的にOutlook VBAを使ってメールアドレスを取得する方法を見ていきましょう。ここでは、受信したメールの差出人のメールアドレスを取得する方法をご紹介します。

差出人のメールアドレスを取得する手順

1. Outlookを開きます。
2. キーボードの「Alt」キーを押しながら「F11」キーを押して、VBAの編集画面を開きます。
3. 上部のメニューから「挿入」をクリックし、「モジュール」を選択します。
4. 表示された白い画面に、以下のコードをコピーして貼り付けます。

vba

Sub GetSenderEmail()

    Dim olApp As Outlook.Application

    Dim olNs As Outlook.Namespace

    Dim olFolder As Outlook.MAPIFolder

    Dim olMail As Outlook.MailItem

    Dim senderEmail As String
    Set olApp = Outlook.Application

    Set olNs = olApp.GetNamespace("MAPI")

    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)

For Each olMail In olFolder.Items If olMail.Class = olMail Then senderEmail = olMail.SenderEmailAddress Debug.Print senderEmail End If Next olMail End Sub

5. コードを貼り付けたら、キーボードの「F5」キーを押して実行します。
6. 実行後、VBAの画面下部にある「イミディエイトウィンドウ」に差出人のメールアドレスが一覧表示されます。

この手順で、受信トレイ内のメールの差出人アドレスを取得できます。ただし、企業内でMicrosoft Exchangeを使用している場合、`SenderEmailAddress`では正確なメールアドレスが取得できないことがあります。その場合は、以下のように`PropertyAccessor`を使用して取得します。

vba

Sub GetSenderSMTPAddress()

    Dim olApp As Outlook.Application

    Dim olNs As Outlook.Namespace

    Dim olFolder As Outlook.MAPIFolder

    Dim olMail As Outlook.MailItem

    Dim senderEmail As String

    Dim pa As Outlook.PropertyAccessor

    Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    Set olApp = Outlook.Application

    Set olNs = olApp.GetNamespace("MAPI")

    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)

For Each olMail In olFolder.Items If olMail.Class = olMail Then Set pa = olMail.Sender.PropertyAccessor senderEmail = pa.GetProperty(PR_SMTP_ADDRESS) Debug.Print senderEmail End If Next olMail End Sub

この方法で、Exchange環境でも正確なメールアドレスを取得できます。

よくある質問や疑問

Q1: VBAって難しそうですが、初心者でも使えますか？

最初は少し戸惑うかもしれませんが、基本的な操作を覚えれば大丈夫です。今回のような簡単なコードから始めて、少しずつ慣れていきましょう。

Q2: 他のメールアドレス情報も取得できますか？

はい、できます。例えば、受信者（To、CC、BCC）のメールアドレスを取得することも可能です。以下のコードで実現できます。

vba

Sub GetRecipientEmails()

    Dim olApp As Outlook.Application

    Dim olNs As Outlook.Namespace

    Dim olFolder As Outlook.MAPIFolder

    Dim olMail As Outlook.MailItem

    Dim recip As Outlook.Recipient

    Dim pa As Outlook.PropertyAccessor

    Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    Set olApp = Outlook.Application

    Set olNs = olApp.GetNamespace("MAPI")

    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)

For Each olMail In olFolder.Items If olMail.Class = olMail Then For Each recip In olMail.Recipients Set pa = recip.PropertyAccessor Debug.Print pa.GetProperty(PR_SMTP_ADDRESS) Next recip End If Next olMail End Sub

このコードを実行すると、各メールの受信者のメールアドレスが表示されます。