如何快速获取 Outlook 中的延后提醒列表

暂停提醒后，您可能会发现在所有提醒中找出暂停的提醒有点困难。 现在，在本文中，我们将教您如何在 Outlook 中快速获取延后提醒列表。

当 Outlook 弹出提醒时，您可以选择忽略或稍后处理。大多数情况下，如果您在收到提醒时没有时间处理相关事项，您会选择将提醒稍后处理一段时间，例如 5 分钟、1 小时等等。然而，稍后处理后，您可能会发现很难找到所有已稍后处理的提醒。在这种情况下，您会渴望找到一种解决方案，让您可以一次性找到所有已稍后处理的提醒。因此，接下来我们将为您介绍一种方法。

获取延后提醒的列表

1. 首先，启动 Outlook 应用程序。
2. 然后，进入 Outlook 主窗口后，您应该按“Alt + F11”键按钮。
3. 随后，您将成功访问 VBA 编辑器窗口。
4. 现在，您必须找到一个未使用的模块。
5. 接下来，将以下 VBA 代码复制并粘贴到该模块中。

Sub GetListofSnoozedReminders()
    Dim objReminder As Outlook.Reminder
    Dim objReminders As Outlook.Reminders
    Dim strList As String
    Dim i As Long
    Dim objNote As Outlook.NoteItem
    
    'Get all the reminders in Outlook
    Set objReminders = Outlook.Reminders
 
    i = 1
    For Each objReminder In objReminders
        'Get the snoozed reminders
        If (objReminder.OriginalReminderDate <> objReminder.NextReminderDate) = True Then
            strList = strList & i & ". " & objReminder.Caption & " (" & Replace(TypeName(objReminder.Item), "Item", "") & ")" & vbCrLf & " Snoozed to " & objReminder.NextReminderDate & vbCrLf & vbCrLf
           i = i + 1
        End If
    Next objReminder
  
    'Display the list of snoozed reminders in a Note
    Set objNote = Outlook.Application.CreateItem(olNoteItem)
    With objNote
         .Body = "Snoozed Reminders" & vbCrLf & vbCrLf & strList
         .Display
    End With
End Sub

6. 之后，您可以通过单击工具栏中的“运行”图标或点击“F5”键按钮来运行此宏。
7. 最终，一个新的笔记项目将显示在后台。 它将显示如下屏幕截图：
8. 如果您想打印此项目，可以在“Notes”文件夹中找到它。 然后，转到“文件”菜单，切换到“打印”选项卡并点击“打印”按钮。

求助于更强大的修复工具

众所周知，Outlook 自带修复工具。 如果遇到小问题，您可以使用它。 但是，如果遇到复杂的麻烦，最好借助其他外部工具，例如 DataNumen Outlook Repair. 它可以修复各种 Outlook 问题和 恢复 PST 无论 PST 文件损坏程度如何，都能轻松恢复数据。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 腐败的中密度纤维板 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com