Как экспортировать адреса электронной почты определённого домена в Outlook?

АвторСяоянДата изменения2025-04-17

Если вы хотите экспортировать адреса электронной почты с определённым доменом из всех контактов в Outlook, ознакомьтесь с этим руководством: оно поможет вам применить код VBA для извлечения всех адресов электронной почты указанного домена в текстовый файл, как показано на следующем снимке экрана.

doc-export-addresses-with-domain-1

Экспорт Адрес электронной почты на основе определённого домена в Outlook с помощью кода VBA

Чтобы извлечь все Адрес электронной почты с определённым доменом из всех контактов, выполните следующие действия:

1. Создайте новый текстовый файл и назовите его, как показано на снимке экрана:

doc-export-addresses-with-domain-2

2. Удерживая клавиши «ALT + F11», откройте окно Microsoft Visual Basic для приложений.

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. Затем нажмите кнопку «ОК» — и все адреса электронной почты из указанного домена сразу же сохранятся в текстовый файл, как показано на снимке экрана:

doc-export-addresses-with-domain-1

AI Mail Assistant в Outlook: умные ответы, чёткая коммуникация (волшебство в один клик!)

Оптимизируйте повседневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook — мощного инструмента, который анализирует ваши прошлые письма, чтобы предлагать точные и умные ответы, улучшать содержание сообщений и помогать легко создавать и редактировать тексты.

Эта функция поддерживает:

Умные ответы: получайте персонализированные, точные и готовые к отправке ответы, созданные на основе ваших прошлых переписок.
Улучшайте контент автоматически: делайте текст письма более ясным и выразительным.
Лёгкое составление: просто укажите ключевые слова — и ИИ сделает всё остальное, предложив несколько стилей письма.
Интеллектуальные дополнения: расширяйте свои идеи с помощью контекстно-зависимых предложений.
Резюмирование: мгновенно получайте краткие обзоры длинных писем.
Глобальный охват: легко переводите свои письма на любой язык.

Эта функция поддерживает:

Умные ответы на письма
Оптимизированный контент
Черновики на основе ключевых слов
Интеллектуальное расширение контента
Резюмирование писем
Многоязыковой перевод

Не ждите —скачайте AI Mail Assistant прямо сейчас и наслаждайтесь!

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для простой работы с электронной почтой: ответы, резюмирование, оптимизация, расширение, перевод и создание писем.

📧Автоматизация электронной почты: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отзыв письма / Блокировка мошеннических писем по темам и другим параметрам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебный интерфейс: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса в один клик: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные / Удаление напоминания о дне рождения…

Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним кликом! Не теряйте времени — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook Скачать сейчас Перейти к покупке

🚀 Скачать одним кликом — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним кликом пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

✅Удобство в один клик: Скачайте все пять установочных пакетов одним щелчком.
🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете ⬇ Скачать пакет 💳 Приобрести пакет