Outlook で特定のドメインに基づいてメールアドレスをエクスポートするには、どうすればよいですか？

著者Xiaoyang変更日2025-04-17

Outlook のすべての連絡先から特定のドメインを持つメールアドレスをエクスポートしたい場合は、以下のスクリーンショットのように、そのドメインに含まれるすべてのメールアドレスをテキストファイルに抽出する VBA コードをご利用ください。詳しくは「読んでください」をご覧ください。

doc-export-addresses-with-domain-1

VBA コードを使用してOutlook で特定のドメインに基づいてメールアドレスをエクスポートする

すべての連絡先から特定のドメインを持つメールアドレスを抽出するには、次の手順に従ってください。

1．新しいテキストファイルを作成し、任意の名前を付けてください（下記スクリーンショット参照）。

doc-export-addresses-with-domain-2

2．「ALT + F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きましょう。

3．次に、「挿入」＞「モジュール」をクリックし、表示されるモジュールウィンドウに次のコードを貼り付けてください。

「VBA コード：特定のドメインに基づいてメールアドレスをエクスポート」

Dim GDomain As String
Dim GFileSystem As Object
Dim GFilePath As String
Dim GFileObj As Object
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
  ByVal ipOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

Sub ExportListOfEmailAddressesInSpecificDomain()
'Updateby ExtendOffice
Dim xStore As Store
Dim xFolder As Folder
On Error Resume Next
GDomain = InputBox("Enter domain(@***.com):", "Kutools for Outlook")
If Len(GDomain) <> 0 Then
  GFilePath = "C:\Users\skyyang\Desktop\Email Addresses with specific domain.txt" 'Specify the file path
  Set GFileSystem = CreateObject("Scripting.FileSystemObject")
  Set GFileObj = GFileSystem.CreateTextFile(GFilePath, True)
  For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
      If xFolder.DefaultItemType = olContactItem Then
        Call ProcessFolders(xFolder)
      End If
    Next
  Next
  GFileObj.Close
  ShellExecute 0&, vbNullString, GFilePath, vbNullString, vbNullString, 1
End If
End Sub

Sub ProcessFolders(ByVal Fld As Outlook.Folder)
Dim xContactItems As Items
Dim I As Long
Dim xContact As ContactItem
Dim xSubFolder As Folder
On Error Resume Next
Set xContactItems = Fld.Items
For I = xContactItems.Count To 1 Step -1
  If xContactItems(I).Class = olContact Then
    Set xContact = xContactItems(I)
    If InStr(xContact.Email1Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email1Address & vbCrLf)
    ElseIf InStr(xContact.Email2Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email2Address & vbCrLf)
    ElseIf InStr(xContact.Email3Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email3Address & vbCrLf)
    End If
  End If
Next
If Fld.Folders.Count > 0 Then
  For Each xSubFolder In Fld.Folders
    If xSubFolder.DefaultItemType = olContactItem Then
      Call ProcessFolders(xSubFolder)
    End If
  Next
End If
End Sub

注：上記のコードでは、「C：\Users\skyyang\Desktop\メールアドレス with specific domain.txt」というファイルパスを自分の環境に合わせて変更してください。

doc-export-addresses-with-domain-4

4．その後、「F5」キーを押してこのコードを実行してください。プロンプトボックスが表示されるので、エクスポート対象のメールアドレスの基準となるメールドメインを入力してください（下記スクリーンショット参照）。

doc-export-addresses-with-domain-3

5．次に、「OK」ボタンをクリックすると、その特定のドメインに含まれるすべてのメールアドレスが一括でテキストファイルに抽出されます（下記スクリーンショット参照）。

doc-export-addresses-with-domain-1

Outlook の AI メールアシスタント：ワンクリックで魔法のように、よりスマートな返信と明確なコミュニケーションを実現！

Kutools for Outlook の AI メールアシスタントで、日々のOutlook タスクをもっと効率的に。この強力なツールは過去のメールから学習し、的確で知的な返信を提案したり、メールの内容を最適化したり、メッセージの下書きや修正を簡単にサポートします。

この機能は以下のサポートを提供します：

スマート返信：過去の会話に基づき、カスタマイズされ、正確で即使用可能な返信を取得できます。
コンテンツ強化：メール本文を自動で明確かつ効果的な内容にブラッシュアップします。
簡単作成：キーワードを入力するだけで、AI が複数の書式スタイルで残りの作業を自動処理します。
インテリジェント拡張：文脈を的確に捉えた提案であなたのアイデアをさらに広げます。
要約機能：長いメールを瞬時に簡潔な概要にまとめてくれます。
グローバル対応：メールをあらゆる言語に簡単に翻訳できます。

この機能は以下のサポートを提供します：

スマートメール返信
最適化されたコンテンツ
キーワードベースの下書き
インテリジェントなコンテンツ拡張
メール要約
多言語翻訳

今すぐ始めましょう—AI メールアシスタントを今すぐダウンロードして、AI メールアシスタントを今すぐダウンロード！

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧今すぐダウンロード購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて ⬇ スイートをダウンロード 💳 スイートを購入