VB.NETでOutlookのアドレス帳を取得する方法【初心者向け解決ガイド】

Outlookのアドレス帳から情報を取得したいけれど、プログラムの知識が乏しいと感じていませんか？本記事では、VB.NETを使ってOutlookのアドレス帳を取得する方法を、初心者でもわかりやすく解説します。難しい専門用語は避け、実際のコード例を交えながら進めていきますので、安心して読み進めてください。

Outlookのアドレス帳とは？
準備VB.NETでOutlookを操作するための設定
基本のコードOutlookのアドレス帳を取得する
グローバルアドレス帳を取得する
アドレス帳から情報を取得する
よくある質問や疑問
1. Q1: 「グローバルアドレス一覧」が見つかりません。どうすればいいですか？
2. Q2: 取得した情報をListBoxに表示したいのですが、どうすればいいですか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlookのアドレス帳とは？

Outlookのイメージ

Outlookのアドレス帳は、メールの送受信に使用する連絡先情報を保存する場所です。これには、個人の連絡先や、会社全体で共有される「グローバルアドレス帳（GAL）」などが含まれます。VB.NETを使うことで、これらのアドレス帳から情報を取得し、プログラム内で活用することができます。

準備VB.NETでOutlookを操作するための設定

まず、VB.NETでOutlookを操作するための準備をしましょう。

Visual Studioを開き、新しいWindowsフォームアプリケーションを作成します。
「参照の追加」から「COM」タブを選択し、「Microsoft Outlook 16.0 Object Library」を追加します。
コードファイルの先頭に、以下のインポート文を追加します。

vb

Imports Microsoft.Office.Interop

これで、VB.NETからOutlookを操作する準備が整いました。

基本のコードOutlookのアドレス帳を取得する

次に、Outlookのアドレス帳を取得する基本的なコードを見てみましょう。

vb

Dim outlookApp As New Outlook.Application

Dim namespace As Outlook.NameSpace = outlookApp.GetNamespace("MAPI")

Dim addressLists As Outlook.AddressLists = namespace.AddressLists

このコードでは、Outlookアプリケーションを起動し、MAPI（Messaging Application Programming Interface）を通じてアドレス帳の情報を取得しています。

グローバルアドレス帳を取得する

会社で使用しているOutlookでは、「グローバルアドレス帳（GAL）」が共有されています。これを取得するには、以下のコードを使用します。

vb

Dim gal As Outlook.AddressList = addressLists.Item("グローバル アドレス一覧")

このコードで、グローバルアドレス帳を取得することができます。

アドレス帳から情報を取得する

取得したアドレス帳から、個々の連絡先情報を取得するには、以下のようにコードを記述します。

vb

For Each entry As Outlook.AddressEntry In gal.AddressEntries

    If entry.AddressEntryUserType = Outlook.OlAddressEntryUserType.olExchangeUserAddressEntry Then

        Dim exchangeUser As Outlook.ExchangeUser = entry.GetExchangeUser()

        Console.WriteLine("名前: " & exchangeUser.Name)

        Console.WriteLine("メールアドレス: " & exchangeUser.PrimarySmtpAddress)

    End If

Next

このコードでは、アドレス帳内の各エントリをチェックし、Exchangeユーザーの場合に名前とメールアドレスを表示しています。

よくある質問や疑問

Q1: 「グローバルアドレス一覧」が見つかりません。どうすればいいですか？

アドレス帳の名前は、Outlookの設定や環境によって異なる場合があります。以下のコードで、利用可能なアドレス帳の名前を確認できます。

vb

For Each list As Outlook.AddressList In addressLists

    Console.WriteLine(list.Name)

Next

このコードを実行すると、現在利用可能なアドレス帳の名前が表示されます。目的のアドレス帳がリストに含まれているか確認してください。

Q2: 取得した情報をListBoxに表示したいのですが、どうすればいいですか？

取得した情報をListBoxに表示するには、以下のようにコードを記述します。

vb

For Each entry As Outlook.AddressEntry In gal.AddressEntries

    If entry.AddressEntryUserType = Outlook.OlAddressEntryUserType.olExchangeUserAddressEntry Then

        Dim exchangeUser As Outlook.ExchangeUser = entry.GetExchangeUser()

        ListBox1.Items.Add("名前: " & exchangeUser.Name & ", メールアドレス: " & exchangeUser.PrimarySmtpAddress)

    End If

Next

このコードでは、取得した名前とメールアドレスをListBoxに追加しています。