Skip to main content

如何在 Outlook 中找到延遲的提醒?

Author: Kelly Last Modified: 2025-05-13

例如,當您在提醒視窗中延遲某個提醒時,該提醒會立即消失。那麼,您要如何找到這些被延遲的提醒呢?本文將介紹在 Outlook 中查找延遲提醒的解決方案。

在 Outlook 日曆中查找延遲的提醒

Office Tab - 啟用 Microsoft Office 中的分頁編輯和瀏覽功能,讓工作變得輕鬆愉快
立即解鎖 Kutools for Outlook 的免費版本,享受超過 70 種功能的無限存取權限
強化您的 Outlook 2024 - 2010 或 Outlook 365,使用這些進階功能。享受 70 多種強大功能,提升您的郵件體驗!

在 Outlook 日曆中查找延遲的提醒

此方法將介紹一個 VBA 程式碼,用於查找所有延遲到今天的提醒。請按照以下步驟操作:

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。

現在,您可以看到所有延遲到今天的提醒都作為郵件正文被貼到一封新郵件中。請參見截圖:

the screenshot of finding snoozed reminders in outlook

arrow blue right bubble相關文章