Outlook VBAで送信者のメールアドレスを取得する方法

皆さん、こんにちは。今日は、OutlookのVBAを使って、受信メールの送信者のメールアドレスを取得する方法についてお話しします。普段、Outlookを使っていて、「このメール、誰から来たんだろう？」と気になること、ありますよね。そんな時に役立つのが、VBAを使ったメールアドレスの取得方法です。初心者の方にもわかりやすく解説していきますので、ぜひ最後までご覧ください。

Outlook VBAとは？
送信者のメールアドレスを取得する方法
実際の使用例
よくある質問や疑問
1. Q1: VBAを使ったことがないのですが、難しくないですか？
2. Q2: この方法は全てのOutlookバージョンで使えますか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、VBAについて簡単にご説明します。VBAは「Visual Basic for Applications」の略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。ExcelやWord、そして今回のテーマであるOutlookでも使用できます。VBAを使うことで、手作業で行っていた処理を自動化し、作業効率を大幅にアップさせることができます。

送信者のメールアドレスを取得する方法

それでは、本題の送信者のメールアドレスを取得する方法について見ていきましょう。OutlookのVBAを使ってメールの送信者アドレスを取得するには、以下の手順を踏みます。

OutlookのVBAエディターを開く。
新しいモジュールを作成する。
メールアイテムから送信者のメールアドレスを取得するコードを記述する。
コードを実行して、送信者のメールアドレスを取得する。

具体的なコードの例を以下に示します。

vba

' 送信者のメールアドレスを取得する関数

Private Function GetSenderEmailAddress(ByRef oItem As MailItem) As String

    Dim PR_SMTP_ADDRESS As String

    Dim oSender As AddressEntry

    Dim oExUser As ExchangeUser
    PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    ' Exchange以外の場合

    If oItem.SenderEmailType <> "EX" Then

        GetSenderEmailAddress = oItem.SenderEmailAddress

        Exit Function

    End If
    Set oSender = oItem.Sender
    If oSender.AddressEntryUserType = olExchangeUserAddressEntry Or oSender.AddressEntryUserType = olExchangeRemoteUserAddressEntry Then

        Set oExUser = oSender.GetExchangeUser

        GetSenderEmailAddress = oExUser.PrimarySmtpAddress

        Exit Function

    End If

GetSenderEmailAddress = oSender.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS) End Function

このコードは、指定したメールアイテムから送信者のメールアドレスを取得する関数です。特に、Exchangeを使用している場合、送信者のメールアドレスの形式が異なることがあります。その場合でも正確にメールアドレスを取得できるように工夫されています。

実際の使用例

では、具体的にどのようにこの関数を使用するのか見てみましょう。例えば、受信トレイ内の全てのメールの送信者アドレスを取得して、イミディエイトウィンドウに表示する場合、以下のようなコードを記述します。

vba

Public Sub ListSenderEmailAddresses()

    Dim oNs As NameSpace

    Dim oFolder As Folder

    Dim oItem As Object

    Dim oMailItem As MailItem
    Set oNs = Application.GetNamespace("MAPI")

    Set oFolder = oNs.GetDefaultFolder(olFolderInbox)

For Each oItem In oFolder.Items If TypeName(oItem) = "MailItem" Then Set oMailItem = oItem Debug.Print GetSenderEmailAddress(oMailItem) End If Next End Sub

このコードを実行すると、受信トレイ内の全てのメールの送信者アドレスがイミディエイトウィンドウに表示されます。これを応用すれば、特定の条件に合致するメールの送信者アドレスをリストアップすることも可能です。