Як швидко створити папку пошуку для всіх електронних листів без відповіді через Outlook VBA

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Щоб легше перевіряти електронні листи без відповіді у вашому Outlook, ви можете створити папку пошуку для таких листів. Тепер ця стаття познайомить вас з тим, як отримати його за допомогою Outlook VBA.

У попередній статті "Як автоматично виділяти важливі електронні листи, на які ви не відповіли в Outlook", ви можете дізнатися, як показати життєво важливі електронні листи, на які ви не відповіли, певним кольором. Але ви можете відчувати, що це все ще турбує, оскільки вам доводиться переглядати всі папки пошти по черзі. Отже, ви хотіли б безпосередньо зібрати всі такі електронні листи в папці пошуку. Тепер, далі, ми навчимо вас використовувати VBA для швидкого створення такої папки пошуку.

Створіть папку пошуку для всіх електронних листів без відповіді

  1. На самому початку запустіть програму Outlook.
  2. Потім натисніть клавіші “Alt + F11”, щоб отримати доступ до редактора VBA.
  3. Далі скопіюйте наступний код VBA в модуль, який не використовується.
Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim strScope As String
    Dim strRepliedProperty As String
    Dim strFilter As String
    Dim objSearch As Outlook.Search
 
    'Specify the folders to be searched
    'Here we use Inbox folder for an example
    strScope = "'" & Application.Session.GetDefaultFolder(olFolderInbox).FolderPath & "'"
 
    'Search filter
    strRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
    strFilter = Chr(34) & strRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & strRepliedProperty & Chr(34) & " <> 103"
    Set objSearch = Outlook.Application.AdvancedSearch(Scope:=strScope, Filter:=strFilter, SearchSubFolders:=True, Tag:="SearchFolder")
 
    'Save the search folder
    objSearch.Save ("Not Replied Emails")
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Search Folder"
End Sub

Код VBA - Створіть папку пошуку для всіх електронних листів без відповіді

  1. Згодом поставте курсор у цю підпрограму.
  2. Після цього натисніть кнопку «F5», щоб запустити цей макрос.
  3. Коли макрос закінчиться, відобразиться повідомлення, як на малюнку нижче.Підказка про "Завершити"
  4. Нарешті, ви можете побачити нову папку пошуку під назвою «Невідповіджені електронні листи», яка містить усі електронні листи без відповіді у папці Вхідні.Нова папка пошуку для електронних листів без відповіді

Змінити область пошуку в папці пошуку

У моєму коді VBA ця папка пошуку здійснює пошук лише у папці Вхідні за замовчуванням. Якщо ви хочете змінити область пошуку, виконайте наведені нижче дії.

  1. По-перше, клацніть правою кнопкою миші папку пошуку.
  2. Потім у контекстному меню виберіть “Налаштувати цю папку пошуку”.Налаштуйте цю папку пошуку
  3. Далі у спливаючому діалоговому вікні «Папка користувацького пошуку» натисніть кнопку «Огляд».
  4. Пізніше з’явиться нове діалогове вікно “Вибрати папку (и)”. У ньому ви можете вибрати папки для пошуку електронних листів, на які ви не відповіли.Виберіть Папки
  5. Нарешті, після вибору, ви можете просто натиснути кілька «ОК», щоб застосувати зміни.

Усуньте часті помилки Outlook

Зазвичай в Outlook отримують повідомлення про помилки, такі як помилки, пов’язані з надсиланням / отриманням помилок, помилки, пов’язані з недоступним файлом Outlook PST тощо. Тому, щоб швидко та ефективно впоратися з цими помилками, вам доведеться навчитися знаходити та використовувати інструмент для ремонту вхідних -. Крім того, у разі виходу з ладу вбудованого інструменту пропонується взяти ще одну чудову зовнішню утиліту, таку як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі SQL Server ремонт та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.