KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Outlook 中按特定域名导出邮箱地址？

作者晓阳修改日期

如果您希望从 Outlook 的所有联系人中导出带有特定域名的邮箱地址，请参考本教程，了解如何使用 VBA 代码将所有特定域名的邮箱地址提取为纯文本，效果如下图所示。

doc-导出带有域名的地址-1

使用 VBA 代码根据特定域名导出邮箱地址（Outlook）

若要从所有联系人中提取带有特定域名的邮箱地址，请按照以下步骤操作：

1. 新建一个纯文本文件，并为其命名，如下图所示：

doc-导出带有域名的地址-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-导出带有域名的地址-4

4. 接着，按下 “F5" 键运行代码。在弹出的提示框中输入您希望作为导出依据的邮箱地址域名，如下图所示：

doc-导出带有域名的地址-3

5. 随后，点击“确定”按钮，所有属于该特定域名的邮箱地址将立即被提取为纯文本，效果如截图所示：

doc-导出带有域名的地址-1

Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）

通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。
doc AI 邮件处理

该功能支持：

  • 智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
  • 内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
  • 轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
  • 智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
  • 智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
  • 全球畅邮：轻松将邮件翻译为任意语言。

该功能支持：

  • 智能邮件回复
  • 内容优化
  • 关键词草稿
  • 智能内容扩展
  • 邮件摘要
  • 多语言翻译

立即行动——现在就下载 AI 邮件助手，畅享高效体验，不容错过！

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

kutools for outlook 功能1kutools for outlook 功能2

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐：Kutools for Office（5 合 1）

一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！

  • ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
  • 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
  • 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint