如何在Outlook中查找已暂停的提醒？

Author: Kelly Last Modified: 2025-05-07

例如，当您在提醒窗口中暂停某个提醒时，该提醒会立即消失。那么，您该如何找到已暂停的提醒呢？本文将介绍在Outlook中查找已暂停提醒的解决方案。

在Outlook日历中查找已暂停的提醒

Office Tab - 在 Microsoft Office 中启用标签页编辑和浏览，让工作变得轻松愉快。

阅读 Office Tab 的功能下载 Office Tab

立即解锁 Kutools for Outlook 的免费版本，永久享受超过 70 项功能的无限访问权限。

通过 AI 技术提升您的邮件处理效率，帮助您快速回复邮件、撰写新邮件、翻译消息等，更加高效地完成任务。
通过规则实现自动抄送密送、自动转发；无需 Exchange 服务器即可发送自动答复（外出）...
当您在密件抄送列表中回复所有人时，获得诸如答复的邮件为 BCC 时提醒等提示，并在忘记附件时收到提醒...
通过带附件回复（全部）、自动添加问候语或日期时间至签名或主题、批量回复邮件等功能提高邮件效率...
通过撤回邮件、附件工具（压缩所有附件、自动保存所有附件...）、删除重复邮件以及快速报告等功能简化邮件操作...

通过这些高级功能增强您的 Outlook 2024 - 2010 或 Outlook 365。享受 70 多种强大功能，提升您的邮件体验！

阅读 Kutools for Outlook 的所有功能下载免费版本

在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代码。

现在，您可以看见所有暂停到今天的提醒都作为邮件正文被粘贴到了一封新邮件中。请参见截图：