こんにちは！今日は、OutlookのVBA（Visual Basic for Applications）を使って、会社のグローバルアドレス帳（GAL）をExcelにエクスポートする方法をご紹介します。パソコンやスマホがちょっと苦手な方でも大丈夫。ゆっくり一緒に学んでいきましょう。
グローバルアドレス帳（GAL）とは？
Outlookのイメージ
まず、グローバルアドレス帳って何でしょうか？これは、会社や組織内の全てのメールアドレスや連絡先が一覧になっているものです。Outlookでは、このアドレス帳を使って同僚や上司の連絡先を簡単に見つけることができます。
VBAって何？
次に、VBAについてお話しします。VBAは「Visual Basic for Applications」の略で、Microsoftのアプリケーション（例えばExcelやOutlook）を自動化するためのプログラミング言語です。難しそうに聞こえるかもしれませんが、基本を押さえれば便利なツールなんですよ。
Outlook VBAでグローバルアドレス帳をエクスポートする手順
では、具体的にOutlookのVBAを使って、グローバルアドレス帳から特定の情報をExcelにエクスポートする方法を見ていきましょう。
Excelを開く
普段通りにExcelを開いてください。
VBAエディタを開く
キーボードの「Alt」キーを押しながら「F11」キーを押すと、VBAエディタが開きます。
新しいモジュールを作成する
上部メニューの「挿入」から「標準モジュール」を選んでください。
コードを入力する
以下のコードをコピーして、先ほど作成したモジュールに貼り付けます。
Sub ExportGALToExcel()
Dim OutlookApp As Object
Dim Namespace As Object
Dim AddressList As Object
Dim AddressEntries As Object
Dim Entry As Object
Dim i As Integer
Dim ws As Worksheet
' Outlookアプリケーションを取得
Set OutlookApp = CreateObject("Outlook.Application")
Set Namespace = OutlookApp.GetNamespace("MAPI")
' グローバルアドレス帳を取得
Set AddressList = Namespace.AddressLists("グローバル アドレス一覧")
Set AddressEntries = AddressList.AddressEntries
' 新しいワークシートを作成
Set ws = ThisWorkbook.Sheets.Add
ws.Name = "GAL_Export"
' ヘッダーを設定
ws.Cells(1, 1).Value = "名前"
ws.Cells(1, 2).Value = "メールアドレス"
' アドレス帳の内容を取得してExcelに書き込む
i = 2
For Each Entry In AddressEntries
ws.Cells(i, 1).Value = Entry.Name
ws.Cells(i, 2).Value = Entry.GetExchangeUser.PrimarySmtpAddress
i = i + 1
Next Entry
MsgBox "エクスポートが完了しました！"
End Sub
コードを実行する
コードを入力したら、実際に実行してみましょう。
1. VBAエディタの上部メニューから「実行」をクリックし、その中の「Sub/ユーザーフォームの実行」を選択します。
2. 表示されたダイアログボックスで「ExportGALToExcel」を選択し、「実行」をクリックします。
すると、Outlookのグローバルアドレス帳がExcelの新しいシートに一覧として表示されます。最後に「エクスポートが完了しました！」というメッセージが表示されれば成功です。
よくある質問や疑問
Q1: コードを実行しても何も起こらないのですが、どうすればいいですか？
まず、Outlookが起動しているか確認してください。Outlookが起動していないと、コードは正しく動作しません。また、参照設定で「Microsoft Outlook XX.X Object Library」にチェックが入っているか再確認してください。
Q2: 「グローバル アドレス一覧」が見つからないというエラーが出ます。
Outlookのアドレスリストの名前は環境によって異なる場合があります。コード内の`AddressLists(“グローバル アドレス一覧”)`の部分を、実際のアドレスリスト名に変更してみてください。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
OutlookのVBAを使って、グローバルアドレス帳をExcelにエクスポートする方法をご紹介しました。少し難しそうに感じるかもしれませんが、手順を追っていけば簡単にできるようになりますよ。ぜひ、試してみてくださいね。
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント