Як знайти відкладені нагадування в Outlook?
Наприклад, під час відкладення нагадування у вікні нагадування нагадування негайно зникне. Тож як ви могли дізнатись про відкладене нагадування? У цій статті я представив рішення пошуку відкладених нагадувань у програмі Outlook.
Знайдіть відкладені нагадування в календарі Outlook
- Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
- Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
- Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
- Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...
Знайдіть відкладені нагадування в календарі Outlook
Цей метод запровадить VBA для пошуку всіх нагадувань, відкладених на сьогодні в Outlook. Будь ласка, виконайте наступне:
1. Перемістіть на пошта і натисніть клавіші Alt + F11 разом, щоб відкрити вікно Microsoft Visual Basic for Applications.
2. клацання Insert > Модуліта вставте нижче коду 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?
Як відсортувати нагадування за терміном виконання в Outlook?
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.