Outlook VBAで表示名を取得する方法【初心者向け解決ガイド】

みなさん、こんにちは。今日は、OutlookのVBAを使って、メールの送信者や受信者の表示名を取得する方法についてお話しします。パソコンやスマホの操作がちょっと苦手な方でも、大丈夫です。一緒にゆっくりと学んでいきましょう。

Outlook VBAとは何か？
表示名を取得する場面とは？
Outlook VBAで表示名を取得する基本的な手順
具体的なコード例
注意点と補足情報
よくある質問や疑問
1. Q1: VBAのコードをどこに入力すれば良いですか？
2. Q2: このコードはOutlookがインストールされていないと動作しませんか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは何か？

Outlookのイメージ

まず、VBAという言葉を聞いたことがありますか？これは「Visual Basic for Applications」の略で、ExcelやOutlookなどのMicrosoft Office製品を自動化するためのプログラミング言語です。例えば、毎日同じようなメールを送る作業を自動化したり、特定の条件のメールを自動で分類したりすることができます。

表示名を取得する場面とは？

では、Outlookで表示名を取得するとは、具体的にどのような場面で役立つのでしょうか。例えば、受信トレイに届いたメールの送信者の名前を一覧にしたいときや、特定の人からのメールだけを抽出したいときなどに、表示名の取得が必要となります。

Outlook VBAで表示名を取得する基本的な手順

それでは、実際にOutlook VBAを使って表示名を取得する基本的な手順を見ていきましょう。難しく感じるかもしれませんが、一つ一つ確認していけば大丈夫です。

Outlookオブジェクトの取得まず、Outlookを操作するためのオブジェクトを取得します。
受信トレイの取得次に、受信トレイのフォルダを指定します。
メールアイテムの取得受信トレイ内の各メールを順番に取得します。
表示名の取得各メールの送信者や受信者の表示名を取得します。

具体的なコード例

具体的なコードを見てみましょう。以下のコードは、受信トレイ内のメールの送信者の表示名を取得し、Excelのシートに書き出す例です。

vba

Sub GetOutlookSenderNames()

    ' Outlookアプリケーションを操作するためのオブジェクトを取得

    Dim objOutlook As Object

    Set objOutlook = CreateObject("Outlook.Application")
    ' Outlookの名前空間を取得

    Dim myNamespace As Object

    Set myNamespace = objOutlook.GetNamespace("MAPI")
    ' 受信トレイフォルダを取得

    Dim myFolder As Object

    Set myFolder = myNamespace.GetDefaultFolder(6) ' 6は受信トレイを指す
    ' Excelのシートを指定

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 受信トレイ内のメールを順番に処理

    Dim i As Long

    For i = 1 To myFolder.Items.Count

        On Error Resume Next ' エラーが発生しても次の行を実行
        ' メールアイテムを取得

        Dim mailItem As Object

        Set mailItem = myFolder.Items.Item(i)
        ' 送信者の表示名を取得してシートに書き出し

        ws.Cells(i, 1).Value = mailItem.SenderName