Як відкрити всі непрочитані електронні листи в Outlook?
Якщо у вашій папці «Вхідні» Outlook є кілька непрочитаних повідомлень електронної пошти, як би ви могли відкрити їх усі для читання відразу якомога швидше?
Відкрийте всі непрочитані повідомлення електронної пошти у певній папці Вхідні або іншій папці з кодом VBA
Наступний код VBA може допомогти вам одночасно відкрити всі непрочитані повідомлення електронної пошти у папці "Вхідні" або іншій конкретній папці. Виконайте кроки нижче:
1. Спочатку слід вибрати папку, з якої ви хочете відкривати всі непрочитані електронні листи.
2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль, див. знімок екрана:
Код VBA: Відкрити всі непрочитані повідомлення електронної пошти в певній папці:
Sub OpenAllUnreadEmails()
Dim xFolders As Outlook.Folders
Dim xFolder As Outlook.Folder
Dim xUnreadEmailCount As Long
On Error Resume Next
xUnreadEmailCount = 0
Set xFolders = Application.ActiveExplorer.CurrentFolder.Folders
Call OperatingFolders(Application.ActiveExplorer.CurrentFolder, xUnreadEmailCount)
For Each xFolder In xFolders
Call OperatingFolders(xFolder, xUnreadEmailCount)
Next
MsgBox "Open " & xUnreadEmailCount & " unread emails successfully!", vbExclamation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub OperatingFolders(ByVal xCurrentFld As Outlook.Folder, UnreadEmailCount As Long)
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xSubFolder As Outlook.Folder
On Error Resume Next
If xCurrentFld.DefaultItemType = olMailItem Then
For Each xItem In xCurrentFld.Items
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.UnRead = True Then
xMailItem.Display
UnreadEmailCount = UnreadEmailCount + 1
End If
End If
Next
End If
If xCurrentFld.Folders.Count > 0 Then
For Each xSubFolder In xCurrentFld.Folders
Call OperatingFolders(xSubFolder, UnreadEmailCount)
Next
End If
End Sub
4. А потім натисніть F5 клавішу для запуску цього коду, і всі непрочитані електронні листи будуть одразу відкриті у зазначеній папці, нарешті, з'явиться підказка, щоб нагадати кількість непрочитаних електронних листів, які відкриваються, див. знімок екрана:
примітки: Цей код недоступний для електронних листів зустрічей.
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.