Как найти отложенные напоминания в Outlook?
Например, при откладывании напоминания в окне Напоминания оно исчезнет немедленно. Поэтому как можно найти отложенное напоминание? В этой статье я представлю решение для поиска отложенных напоминаний в Outlook.
Поиск отложенных напоминаний в календаре Outlook
- Повысьте продуктивность обработки электронной почты с помощью технологии ИИ, позволяя быстро отвечать на письма, создавать новые, переводить сообщения и многое другое.
- Автоматизируйте отправку писем с помощью Авто Копии/Скрытой копии, Автоматического перенаправления по правилам; отправляйте Автоответчик (Вне офиса) без необходимости использования сервера Exchange...
- Получайте напоминания, такие как Предупреждение при ответе на электронное письмо, в котором я указан в поле BCC, а также напоминания о пропущенных вложениях...
- Улучшите эффективность работы с электронной почтой с помощью Ответа (всем) с вложениями, автоматического добавления приветствия или даты и времени в подпись или тему, ответа на несколько писем...
- Оптимизируйте работу с электронной почтой с помощью функций Отзыва писем, Инструментов вложений (Сжать все, Автосохранение всех...), Удаление дубликатов и Быстрый отчет...
Поиск отложенных напоминаний в календаре Outlook
Этот метод представит VBA-скрипт для поиска всех напоминаний, отложенных на сегодня, в Outlook. Пожалуйста, выполните следующие действия:
1. Перейдите в представление Почта и нажмите клавиши Alt + F11 вместе, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставить > Модуль и вставьте приведенный ниже код VBA в новое окно Модуля.
VBA: Поиск отложенных напоминаний в Outlook
Sub SnoozedReminders()
Dim xReminder As Reminder
Dim xReminders As Outlook.Reminders
Dim xRemItems As String
Dim k As Long
k = 0
Set xReminders = Outlook.Reminders
For Each xReminder In xReminders
If ReminderExpired(xReminder) = True Then
k = k + 1
xRemItems = xRemItems & k & ": " & xReminder.Caption & vbCr & " Snoozed to " & xReminder.NextReminderDate & vbCr & vbCr
End If
Next xReminder
CreateRemItemsAsEmail "Snoozed RemItems", xRemItems
End Sub
Function ReminderExpired(Reminder As Outlook.Reminder) As Boolean
If (Reminder.OriginalReminderDate <> Reminder.NextReminderDate) Then
ReminderExpired = (Reminder.OriginalReminderDate <> Reminder.NextReminderDate)
End If
End Function
Public Sub CreateRemItemsAsEmail(Theme As String, RemItems As String)
Dim xSession As Outlook.NameSpace
Dim xMailItem As MailItem
Dim xInboxFd As Outlook.Folder
On Error Resume Next
Set xSession = Application.Session
Set xInboxFd = xSession.GetDefaultFolder(olFolderInbox)
Set xMailItem = xInboxFd.Items.Add("IPM.Mail")
With xMailItem
.Subject = Theme
.body = RemItems
.Save
.Display
End With
Set xSession = Nothing
Set xInboxFd = Nothing
Set xmail = Nothing
End Sub
3. Нажмите клавишу F5 или кнопку Выполнить , чтобы запустить этот VBA.
Теперь вы можете увидеть все напоминания, отложенные на сегодня, вставленные как тело сообщения в новом письме. См. скриншот:

Связанные статьи
Как просмотреть будущие напоминания в Outlook?
Как распечатать список напоминаний в определенном календаре в Outlook?
Лучшие инструменты для повышения продуктивности работы с Office
Срочные новости: бесплатная версия Kutools для Outlook уже доступна!
Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...
📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...
👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!


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