Outlookのアドレス帳をVBAで取得する方法

Outlookのアドレス帳をVBAで取得する方法｜初心者向け解説

2025.10.06

Outlookのアドレス帳をVBAで取得したいけれど、どうすればよいか分からないとお悩みの方へ。今回は、初心者の方でも安心して実践できるよう、わかりやすく解説します。

VBAでOutlookのアドレス帳を取得する前に
1. ExcelでVBAを使えるように設定する
2. Outlookが起動していることを確認する
VBAコードでアドレス帳を取得する
よくある質問
1. Q1: コードを実行しても何も起こりません。どうしたらいいですか？
2. Q2: 連絡先の情報が一部しか表示されません。なぜですか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAでOutlookのアドレス帳を取得する前に

Outlookのイメージ

まず、VBA（Visual Basic for Applications）を使ってOutlookのアドレス帳にアクセスするための準備をしましょう。

ExcelでVBAを使えるように設定する

Excelを開き、以下の手順でVBAの設定を行います。

Excelを起動し、Alt + F11キーを押してVBAの画面を開きます。
メニューの「ツール」から「参照設定」を選択します。
「Microsoft Outlook xx.x Object Library」にチェックを入れて、「OK」をクリックします。

これで、ExcelからOutlookの情報を操作できる準備が整いました。

Outlookが起動していることを確認する

VBAでOutlookのアドレス帳にアクセスするためには、Outlookが起動している必要があります。Outlookを起動してから、次のステップに進んでください。

VBAコードでアドレス帳を取得する

以下のVBAコードを使って、Outlookのアドレス帳から名前やメールアドレスをExcelに出力することができます。

vba

Sub GetOutlookContacts()

    Dim OutlookApp As Object

    Dim Namespace As Object

    Dim AddressList As Object

    Dim AddressEntries As Object

    Dim ContactItem As Object

    Dim i As Integer
    ' Outlookアプリケーションを取得

    Set OutlookApp = CreateObject("Outlook.Application")

    Set Namespace = OutlookApp.GetNamespace("MAPI")

    Set AddressList = Namespace.AddressLists("連絡先")

    Set AddressEntries = AddressList.AddressEntries
    ' Excelシートに出力

    i = 1

    For Each ContactItem In AddressEntries

        If ContactItem.Class = 40 Then ' olContact

            Cells(i, 1).Value = ContactItem.FullName

            Cells(i, 2).Value = ContactItem.Email1Address

            i = i + 1

        End If

    Next ContactItem